Notes

Disk info for Creature_Venture_1981_Highland_Computer_Services.do:

File Name: a2_Creature_Venture_1981_Highland_Computer_Services/Creature_Venture_1981_Highland_Computer_Services.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 20736
Used Space (bytes): 122624
Physical Size (KB): 140
Free Space (KB): 20
Used Space (KB): 119
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 81
Used Sectors: 479
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Creature_Venture_1981_Highland_Computer_Services.do:

a2_Creature_Venture_1981_Highland_Computer_Services/Creature_Venture_1981_Highland_Computer_Services.do DISK VOLUME #254
A 002 MC
* A 016 WIZDIM
* A 061 WIZARD1
* A 062 WIZARD2
* A 048 WIZARD3
* A 002 WORD4
* B 019 WIZ.SHAPES
* B 015 WIZ2.SHAPES
* B 009 WIZ3.SHAPES
* B 005 WORDS
* B 005 WORD2
* B 005 WORD3
* B 022 BROOMS
* B 018 BROOM2
* B 017 BROOM3
* B 009 BKIT
* B 005 RA.SHAPES
* B 003 CHAIN
* B 002 SCANNER
* B 033 LOGO
T 002 WIZ
T 002 WIZ.SAVE
I 053 APPLESOFT
DOS 3.3 format; 20,736 bytes free; 122,624 bytes used.

Text found in Creature_Venture_1981_Highland_Computer_Services.do/APPLESOFT.int:

10 REM M
LANGAGE CARD FP LOADER
BY STEPHEN L BILLIARD
CALL APPLE NOV/DEC 80
20 REM
P37/38
100 DIM A(1):ALOC= PEEK (204)+ PEEK (205)*256-9-4:REM ALOC POINTS TO A(0) OR A
200 DIM C$(32):CLOC= PEEK (204)+ PEEK (205)*256-9-33:REM CLOC POINTS TO C$(0)
300 D$="":REM CTRL D
400 GOSUB 2400
500 LC1=LC1+24:IF LC1<256 THEN 800
600 LC1=LC1-256:LC2=LC2+1
700 REM LC1,LC2 ARE THE BEGINNING ADDRESS OF APPLESOFT CODE
800 POKE -21935,0:REM DEFEAT RAM APPLESOFT SWITCH
900 F= PEEK (512):IF F=196 THEN F= PEEK (213):REM LOOK AT KEYIN BUFFER;SEE IF LOAD, RUN OR FP
1000 A= PEEK (-16255):A= PEEK (-16255):REM TOGGLE TWICE TO WRITE ENABLE LANGUAGE CARD
1100 POKE 768,32: POKE 769,44: POKE 770,254: POKE 771,96:REM CALL MONITOR MOVE CODE
1200 POKE 66,0: POKE 67,208: POKE 62, PEEK (76): POKE 63, PEEK (77)
1300 POKE 60,LC1: POKE 61,LC2:CALL 768
1400 A= PEEK (-16254):REM WRITE PROTECT LANGUAGE CARD
1500 POKE ALOC, PEEK (-25336): POKE ALOC+1, PEEK (-25335):REM POINTER TO PROGRAM NAME
1600 FOR I=0 TO 29
1700 POKE CLOC+I, PEEK (A+I)
1800 NEXT I
1900 IF PEEK (CLOC)=160 THEN 2300
2000 POKE CLOC+I,0
2100 IF F=204 THEN PRINT D$;"LOAD";C$
2200 PRINT D$;"RUN";C$
2300 PRINT D$;"FP"
2400 LC1= PEEK (224):LC2= PEEK (225)-(LC1>243):RETURN
Listing error: possible embedded machine code.

Text found in Creature_Venture_1981_Highland_Computer_Services.do/CHAIN.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 85 03 20 A6 03 A9 07 85 8F A5 69 A6 6A 85 9D .. &.). ..%i&j..
$000010 86 9E E4 6C D0 04 C5 6B F0 05 20 7E 02 F0 F3 85 ..dlP.Ek p. ~.ps.
$000020 9F 86 A0 A9 03 85 8F A5 9F A6 A0 E4 6E D0 07 C5 .. )...% .& dnP.E
$000030 6D D0 03 4C E0 02 85 9D 86 9E A0 00 B1 9D AA C8 mP.L`... .. .1.*H
$000040 B1 9D 08 C8 B1 9D 65 9F 85 9F C8 B1 9D 65 A0 85 1..H1.e. ..H1.e .
$000050 A0 28 10 D3 8A 30 D0 C8 B1 9D A0 00 0A 69 05 65 (.S.0PH 1. ..i.e
$000060 9D 85 9D 90 02 E6 9E A6 9E E4 A0 D0 04 C5 9F F0 .....f.& .d P.E.p
$000070 BA 20 88 02 F0 F3 B1 9D 30 46 C8 B1 9D 10 41 C8 : ..ps1. 0FH1..AH
$000080 B1 9D F0 3C C8 B1 9D AA C8 B1 9D 85 9C 86 9B C5 1.p5!.<5
$000160 69 95 42 CA F0 EF A0 00 20 2C FE 6C AE 03 18 B5 i.BJpo . ,~l...5
$000170 00 65 9D 95 71 E8 B5 00 65 9E 95 71 60 AD 00 E0 .e..qh5. e..q`-.`
$000180 A0 0B C9 4C F0 02 A0 17 A2 0B B9 B8 03 9D AC 03 .ILp. . ".98..,.
$000190 88 CA 10 F6 60 6C AC 03 6C B2 03 6C B0 03 6C B4 .J.v`l,. l2.l0.l4
$0001A0 03 6C B6 03 00 00 00 00 00 00 00 00 00 00 00 00 .l6..... ........
$0001B0 65 D6 D2 D7 FB DA 5C DB 84 E4 9A D3 65 0E D4 0F eVRW{Z\[ .d.Se.T.
$0001C0 FC 12 5F 13 7B 1C 9A 0B .. .. .. .. .. .. .. .. |._.{...
** END **

Text found in Creature_Venture_1981_Highland_Computer_Services.do/MC.bas:

65535 REM COPYRIGHTED1981(C)SETOFP
65535 REM COPYRIGHTED 1980 (C) BY HIGHLANDS COMPUTER SERVICES
100 HIMEM: 33267: REM HIMEM=$81F3
200 TEXT : HOME : HGR
300 PRINT CHR$(4);"BLOAD LOGO"
310 POKE 214,00
63910 PRINT CHR$(4);"EXEC WIZ"

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZ.SAVE.txt:

2
4
0
52
53
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
1
1.2
6.1
99
4.1
99
99
29
7.1
99
32.1
11.1
12.1
52.1
55.1
20.1
66
67.1
0
0
0
0

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZ.txt:

POKE16384,0
POKE16385,0
POKE16386,0
POKE103,01
POKE104,64
NEW
LOAD WIZDIM
POKE214,128
RUN

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZARD1.bas:

1 REM THISCOPYRIGHTED1981(C)SETOFP
2 SCALE= 1: ROT= 0
3 GOSUB 555:IT(0) = 999
4 POKE 34,20: HOME :GAME = 1: IF RO = 16 THEN GOTO 157
5 POKE 34,0
6 HGR : SCALE= 1: ROT= 0: IF RE$ = "O" THEN GOSUB 460
7 RO = 1:D = 1: GOSUB 287:: HPLOT 254,50 TO 235,50 TO 235,101: GOSUB 546
8 PRINT "YOU ARE IN A FIELD WITH A TREE AND A SHED TO THE EAST"
9 POKE 34,0
10 GOSUB 486: GOSUB 293
11 ON DI GOTO 15,12,31,12,23
12 GOSUB 544
13 IF N = 99 THEN GOTO 7
14 GOTO 10
15 RO = 2:D = 4: GOSUB 287: GOSUB 546
16 PRINT "PATHS LEAD EAST,WEST & SOUTH"
17 GOSUB 486: GOSUB 293
18 ON DI GOTO 19,7,53,47
19 IF DI = 1 THEN PRINT "THE GATE HAS BEEN PERMANENTLY SEALED"
20 GOSUB 544
21 IF N = 99 THEN GOTO 15
22 GOTO 17
23 REM
24 RO = 3:D = 5: GOSUB 287: GOSUB 546: IF IT(3) = 3.1 THEN XDRAW 3 AT 130,120: PRINT "I SEE A KEY ";NA$
25 IF IT(2) = 6.1 THEN HPLOT 247,20 TO 247,25
26 GOSUB 486: GOSUB 293
27 IF DI = 6 THEN GOTO 7
28 GOSUB 544
29 IF N = 99 THEN GOTO 23
30 GOTO 26
31 RO = 4:D = 7: GOSUB 287: GOSUB 546
32 IF IT(6) = 4 THEN PRINT "THERE ARE SOME BATTERIES HERE ";NA$
33 IF SD = 1 THEN HPLOT 150,65 TO 150,20 TO 200,20 TO 200,65 TO 150,40
34 GOSUB 486: GOSUB 293
35 IF DI = 4 THEN GOTO 7
36 IF DI = 99 THEN GOTO 40
37 GOSUB 544
38 IF N = 99 THEN GOTO 31
39 GOTO 34
40 RO = 6:D = 6: GOSUB 287: GOSUB 546
41 IF IT(2) = 6.1 THEN XDRAW 2 AT 200,50
42 GOSUB 486: GOSUB 293
43 IF DI = 6 THEN GOTO 31
44 GOSUB 544
45 IF N = 99 THEN GOTO 40
46 GOTO 42
47 RO = 7:D = 11: GOSUB 287: GOSUB 546
48 GOSUB 486: GOSUB 293
49 ON DI GOTO 69,50,15
50 GOSUB 544
51 IF N = 99 THEN GOTO 47
52 GOTO 48
53 RO = 5:D = 10: GOSUB 287: GOSUB 546
54 GOSUB 486: GOSUB 293
55 ON DI GOTO 59,56,56,15
56 GOSUB 544
57 IF N = 99 THEN GOTO 53
58 GOTO 54
59 RO = 8:D = 12: GOSUB 287: GOSUB 546
60 PRINT "THERE IS A CRACK IN THE WALL AND THE PATH GOES NORTH AND SOUTH";NA$
61 GOSUB 486
62 IF V = 3 AND N = 31 AND IT(7) < >99 THEN GOTO 84
63 IF V = 3 AND N = 31 AND IT(7) = 99 THEN PRINT "SOMETHING YOUR CARRYING WON'T FIT": GOTO 61
64 GOSUB 293
65 ON DI GOTO 69,53
66 GOSUB 544
67 IF N = 99 THEN GOTO 59
68 GOTO 61
69 RO = 9:D = 13: GOSUB 287: GOSUB 546
70 IF OZ = 0 THEN XDRAW 99 AT 170,140: PRINT "THERE IS A GOOEY OOZLYBUB HERE THAT IS NOT ABOUT TO MOVE"
71 PRINT "PATHS GO EAST AND WEST"
72 GOSUB 486: IF V = 3 OR V = 2 THEN GOTO 79
73 IF V = 5 AND N = 32 AND OZ = 0 THEN XDRAW 99 AT 170,140:OZ = 1: GOTO 72
74 IF OZ < >0 THEN GOTO 79
75 HGR
76 FOR I = 1 TO 5: SCALE= I: ROT= I *16: XDRAW 100 AT 100,100: XDRAW 100 AT 100,100: NEXT : ROT= 0: DRAW 49 AT 20,100: DRAW 46 AT 50,70: DRAW 42 AT 70,100: DRAW 31 AT 100,90: DRAW 50 AT 150,80
77 SCALE= 1: PRINT "YOU JUST GOT A FACE FULL OF BLOOP FOR TRYING THAT. EECH YOUR A MESS NOW ";NA$
78 HGR :D = 13: GOSUB 287: XDRAW 99 AT 170,140: GOSUB 546: GOTO 72
79 GOSUB 293
80 ON DI GOTO 81,81,47,59
81 GOSUB 544
82 IF N = 99 THEN GOTO 69
83 GOTO 72
84 RO = 10:D = 14: GOSUB 287: GOSUB 546
85 IF EL = 1 THEN GOTO 104
86 XDRAW 72 AT 95,140: XDRAW 80 AT 97,142
87 IF FG = 1 THEN GOTO 104
88 XDRAW 45 AT 120,150: XDRAW 45 AT 128,150: XDRAW 45 AT 124,144: ROT= 0
89 PRINT "THERE IS A ELF THROWING STUFF OVER THE WALL"
90 XDRAW 80 AT 97,142
91 FOR I = 1 TO 3
92 IF I = 1 THEN XDRAW 45 AT 124,144
93 IF I = 2 THEN XDRAW 45 AT 128,150
94 IF I = 3 THEN XDRAW 45 AT 120,150
95 GOSUB 97
96 NEXT I: XDRAW 80 AT 97,142: GOTO 104
97 XDRAW 73 AT 97,142: XDRAW 73 AT 97,142: XDRAW 74 AT 97,142: XDRAW 74 AT 97,142: XDRAW 75 AT 97,142: XDRAW 75 AT 97,142: XDRAW 76 AT 97,142: XDRAW 76 AT 97,142
98 XDRAW 80 AT 97,142
99 FOR Z = 1 TO 50 STEP 5: XDRAW 77 AT 110,125 -Z: FOR W = 1 TO 1: NEXT W: XDRAW 77 AT 110,125 -Z: NEXT Z
100 FOR Z = 1 TO 55 STEP 5: XDRAW 78 AT 110,75 -Z: FOR W = 1 TO 4: NEXT W: XDRAW 78 AT 110,75 -Z: NEXT Z
101 FOR Z = 1 TO 10 STEP 2: XDRAW 79 AT 110,20 +Z: FOR W = 1 TO 14: NEXT W: XDRAW 79 AT 110,20 +Z: NEXT Z
102 XDRAW 80 AT 97,142
103 FG = 1: RETURN
104 GOSUB 486
105 IF V = 3 AND N = 31 AND IT(7) = 99 THEN PRINT "SOMETHING WON'T FIT THRU THE CRACK": GOTO 104
106 IF V = 3 AND N = 31 AND IT(7) < >99 THEN GOTO 59
107 IF V < >7 OR EL < >0 THEN GOTO 111
108 XDRAW 72 AT 95,140: XDRAW 80 AT 97,142: XDRAW 100 AT 90,130: XDRAW 100 AT 90,130: XDRAW 46 AT 75,130: XDRAW 45 AT 90,130: XDRAW 45 AT 99,130: XDRAW 36 AT 125,131: XDRAW 100 AT 99,135
109 FOR W = 1 TO 100: NEXT W
110 XDRAW 100 AT 90,130: XDRAW 100 AT 90,130: XDRAW 46 AT 75,130: XDRAW 45 AT 90,130: XDRAW 45 AT 99,130: XDRAW 36 AT 125,131: XDRAW 100 AT 99,135:EL = 1: GOTO 104
111 GOSUB 293
112 IF DI = 2 THEN GOTO 116
113 GOSUB 544
114 IF N = 99 THEN GOTO 84
115 GOTO 104
116 RO = 11:D = 15: GOSUB 287
117 IF D1 < >1 THEN D = 16: GOSUB 289: GOTO 119
118 D = 17: GOSUB 289
119 GOSUB 546
120 GOSUB 486
121 GOSUB 293
122 IF DI = 1 THEN GOTO 84
123 IF DI = 2 AND D1 < >1 THEN PRINT "THE DOOR IS CLOSED ";NA$: GOTO 120
124 IF DI = 2 THEN GOTO 128
125 GOSUB 544
126 IF N = 99 THEN GOTO 116
127 GOTO 120
128 RO = 12:D = 18: GOSUB 287: GOSUB 546
129 GOSUB 486
130 GOSUB 293
131 ON DI GOTO 116,141,135
132 GOSUB 544
133 IF N = 99 THEN GOTO 128
134 GOTO 129
135 RO = 13:D = 19: GOSUB 287: GOSUB 546
136 GOSUB 486: GOSUB 293
137 IF DI = 4 THEN GOTO 128
138 GOSUB 544
139 IF N = 99 THEN GOTO 135
140 GOTO 136
141 RO = 14:D = 21: GOSUB 287: GOSUB 546
142 GOSUB 486: GOSUB 293
143 ON DI GOTO 128,277,147,157,243
144 GOSUB 544
145 IF N = 99 THEN GOTO 141
146 GOTO 142
147 RO = 15:D = 26: GOSUB 287: IF BK = 1 THEN D = 28: GOSUB 289: HPLOT 100,58 TO 100,20 TO 130,20 TO 130,58: HPLOT 100,58 TO 130,45: GOTO 149
148 D = 27: GOSUB 289
149 GOSUB 546
150 GOSUB 486: GOSUB 293
151 IF DI = 4 THEN GOTO 141
152 IF DI = 1 AND D2 = 1 THEN GOTO 167
153 GOSUB 544
154 IF N = 99 THEN GOTO 147
155 GOTO 150
156 END
157 RO = 16:D = 35: GOSUB 287:D = 36: GOSUB 289:D = 37: GOSUB 289
158 IF CA = 0 THEN D = 38: GOSUB 289: GOTO 160
159 D = 39: GOSUB 289
160 GOSUB 546
161 GOSUB 486: GOSUB 293
162 IF DI = 98 THEN GOTO 264
163 IF DI = 3 THEN GOTO 141
164 GOSUB 544
165 IF N = 99 THEN GOTO 157
166 GOTO 161
167 RO = 17:D = 41: GOSUB 287: GOSUB 546
168 GOSUB 486: GOSUB 293
169 ON DI GOTO 197,147,172,182
170 GOSUB 544: IF N = 99 THEN GOTO 167
171 GOTO 168
172 RO = 18:D = 41: GOSUB 287: GOSUB 546
173 GOSUB 486: GOSUB 293
174 ON DI GOTO 202,175,167,177
175 GOSUB 544: IF N = 99 THEN GOTO 172
176 GOTO 173
177 RO = 19:D = 41: GOSUB 287: GOSUB 546
178 GOSUB 486: GOSUB 293
179 ON DI GOTO 212,217,187,172
180 GOSUB 544: IF N = 99 THEN GOTO 177
181 GOTO 178
182 RO = 20:D = 41: GOSUB 287: GOSUB 546
183 GOSUB 486: GOSUB 293
184 ON DI GOTO 207,185,167,187
185 GOSUB 544: IF N = 99 THEN GOTO 182
186 GOTO 183
187 RO = 21:D = 41: GOSUB 287: GOSUB 546
188 GOSUB 486: GOSUB 293
189 ON DI GOTO 192,190,182,177
190 GOSUB 544: IF N = 99 THEN GOTO 187
191 GOTO 188
192 RO = 22:D = 41: GOSUB 287: GOSUB 546
193 GOSUB 486: GOSUB 293
194 ON DI GOTO 197,187,197,172
195 GOSUB 544: IF N = 99 THEN GOTO 192
196 GOTO 193
197 RO = 23:D = 41: GOSUB 287: GOSUB 546
198 GOSUB 486: GOSUB 293
199 ON DI GOTO 217,167,202,192
200 GOSUB 544: IF N = 99 THEN GOTO 197
201 GOTO 198
202 RO = 24:D = 41: GOSUB 287: GOSUB 546
203 GOSUB 486: GOSUB 293
204 ON DI GOTO 217,172,187,197
205 GOSUB 544: IF N = 99 THEN GOTO 202
206 GOTO 203
207 RO = 26:D = 41: GOSUB 287: GOSUB 546
208 GOSUB 486: GOSUB 293
209 ON DI GOTO 182,182,222,192
210 GOSUB 544: IF N = 99 THEN GOTO 207
211 GOTO 208
212 RO = 27:D = 41: GOSUB 287: GOSUB 546
213 GOSUB 486: GOSUB 293
214 ON DI GOTO 172,177,202,217
215 GOSUB 544: IF N = 99 THEN GOTO 212
216 GOTO 213
217 RO = 25:D = 41: GOSUB 287: GOSUB 546
218 GOSUB 486: GOSUB 293
219 ON DI GOTO 197,202,212,192
220 GOSUB 544: IF N = 99 THEN GOTO 217
221 GOTO 218
222 RO = 28:D = 41: GOSUB 287: GOSUB 546
223 GOSUB 486: GOSUB 293
224 ON DI GOTO 227,217,212,207
225 GOSUB 544: IF N = 99 THEN GOTO 222
226 GOTO 223
227 RO = 29:D = 7: GOSUB 287: GOSUB 546
228 IF IT(7) = 29 THEN PRINT "I SEE A SHOVEL HERE ";NA$
229 IF BD >1 THEN GOTO 236
230 XDRAW 64 AT 100,110: HPLOT 155,86 TO 158,88
231 XDRAW 65 AT 100,110
232 FOR I = 1 TO 5
233 ROT= 16: XDRAW 58 AT 130,95: XDRAW 58 AT 130,95: ROT= 48: XDRAW 58 AT 120,95: XDRAW 58 AT 120,95
234 NEXT : XDRAW 58 AT 120,95:BD = 1: PRINT "THERE IS A LARGE OVERWEIGHT FLATTAILED BAZOO HERE ":
235 ROT= 0
236 GOSUB 486: GOSUB 293
237 IF V = 7 AND IT(2) < >99 THEN PRINT "WITH WHAT???": GOTO 236
238 IF V = 7 AND BD >1 THEN PRINT "WHO???": GOTO 236
239 IF V = 7 THEN BD = 2:IT(2) = 98:CC = CC -1: GOTO 227
240 IF DI = 2 THEN GOTO 222
241 GOSUB 544: IF N = 99 THEN GOTO 227
242 GOTO 236
243 RO = 30:D = 44: GOSUB 287: GOSUB 546
244 GOSUB 486: GOSUB 293
245 IF DI = 4 THEN GOTO 251
246 IF DI = 3 THEN GOTO 258
247 IF DI = 6 THEN GOTO 141
248 GOSUB 544
249 IF N = 99 THEN GOTO 243
250 GOTO 244
251 RO = 31:D = 45: GOSUB 287: GOSUB 546
252 GOSUB 486: GOSUB 293
253 IF DI = 3 THEN GOTO 243
254 GOSUB 544
255 IF N = 99 THEN GOTO 251
256 GOTO 252
257 END
258 RO = 32:D = 46: GOSUB 287: GOSUB 546
259 GOSUB 486: GOSUB 293
260 IF DI = 4 THEN GOTO 243
261 GOSUB 544
262 IF N = 99 THEN GOTO 258
263 GOTO 259
264 REM MIRROR
265 RO = 33:D = 49: GOSUB 287
266 IF IT(15) = 99 THEN GOTO 268
267 IF IT(6) < >99 OR IT(5) < >99 THEN PRINT "WITHOUT LIGHT YOU MAY NOT CONTINUE.": GET A$: GOTO 157
268 D = 50: GOSUB 289: GOSUB 546
269 PRINT "YOU ARE BEHIND THE MIRROR IN A LONG NORTHERLY PASSAGE (LOADS NEW PROGRAM IF YOU GO NORTH)"
270 GOSUB 486: GOSUB 293
271 IF DI = 1 THEN GOTO 275
272 IF DI = 2 THEN GOTO 157
273 GOSUB 544: IF N = 99 THEN GOTO 264
274 GOTO 270
275 PRINT CHR$(4);"BLOAD CHAIN,A 520"
276 CALL 520"WIZARD2"
277 RO = 34: PRINT CHR$(4);"BLOADBKIT,A$8200"
278 RO = 34:D = 50: GOSUB 287
279 GOSUB 546
280 GOSUB 486: GOSUB 293
281 IF DI = 1 THEN GOTO 284
282 GOSUB 544: IF N = 99 THEN GOTO 278
283 GOTO 280
284 PRINT CHR$(4);"BLOADBROOMS,A$8200"
285 GOTO 141
286 END
287 REM
288 HGR : HCOLOR= 3
289 POKE 05,112: POKE 06,130
290 POKE 07,D
291 CALL 33280
292 RETURN
293 REM
294 REM
295 ON V GOTO 298,318,336,352,399,296,484,503,405,411,418,502,421,425,428,433,443,446,448,460
296 IF RO < >29 THEN PRINT "I SORT OF UNDERSTAND WHAT YOU MEAN BUT YOU BETTER TRY SOMETHING ELSE"
297 RETURN
298 REM
299 REM
300 DI = 0
301 IF CC = >7 THEN PRINT "YOU CAN'T CARRY ANYMORE ";NA$: RETURN
302 IF N >20 THEN PRINT "HOLY COW I CAN'T GET THAT": RETURN
303 IF IT(N) = 1.2 AND D = 2 THEN XDRAW 1 AT 100,100:IT(N) = 99: GOTO 317
304 IF D = 20 AND IT(4) = 4.1 THEN IT(4) = 99: XDRAW 4 AT 170,90: GOTO 317
305 IF N = 2 AND RO = 3 THEN PRINT "YOU GOT GOOD EYES BUT NOT LONG ARMS": RETURN
306 IF RO = 29 AND N = 7 AND BD <2 THEN PRINT "THE BAZOO WON'T LET YOU": RETURN
307 IF IT(N) = RO THEN IT(N) = 99:N = 99:V = 0: GOTO 317
308 IF N = 2 AND IT(2) = 6.1 AND RO = 6 THEN IT(2) = 99: XDRAW 2 AT 200,50: GOTO 317
309 IF RO = 3 AND IT(3) = 3.1 THEN IT(3) = 99: XDRAW 3 AT 130,120: GOTO 317
310 IF D = 22 AND N = 5 AND IT(5) = 14.1 THEN IT(5) = 99: XDRAW 5 AT 100,80: GOTO 317
311 IF N = 9 AND IT(9) = 15.1 AND D = 29 THEN XDRAW 9 AT 100,130:IT(9) = 99: GOTO 317
312 IF N = 10 AND D = 48 AND IT(10) = 32.1 THEN IT(10) = 99: XDRAW 10 AT 110,120: GOTO 317
313 IF N = 12 AND D = 57 AND IT(12) = 12.1 THEN XDRAW 12 AT 125,82:IT(12) = 99: GOTO 317
314 IF N = 11 AND D = 54 AND IT(11) = 11.1 THEN XDRAW 11 AT 165,80:IT(11) = 99: GOTO 317
315 IF IT(N) = 99 THEN PRINT "YOU ARE ALREADY CARRYING IT": RETURN
316 PRINT "I DON,T SEE IT": RETURN
317 CC = CC +1: PRINT "0.K.";NA$: RETURN
318 REM
319 DI = 0
320 IF N >20 THEN PRINT "ARE WE PLAYING THE SAME GAME?": RETURN
321 IF IT(N) < >99 THEN PRINT "YOU DON,T SEEM TO BE CARRYING IT": RETURN
322 IF N < >2 THEN GOTO 331
323 IF RO = 29 THEN V = 7: RETURN
324 XDRAW 2 AT 50,140
325 FOR I = 1 TO 100 STEP 20
326 XDRAW 68 AT 210 -I,30 +I: XDRAW 69 AT 211 -I,20 +I: XDRAW 70 AT 208 -I,23 +I: XDRAW 68 AT 210 -I,30 +I: XDRAW 69 AT 211 -I,20 +I: XDRAW 70 AT 208 -I,23 +I
327 XDRAW 68 AT 200 -I,40 +I: XDRAW 61 AT 201 -I,30 +I: XDRAW 70 AT 198 -I,33 +I: XDRAW 68 AT 200 -I,40 +I: XDRAW 61 AT 201 -I,30 +I: XDRAW 70 AT 198 -I,33 +I
328 NEXT : XDRAW 68 AT 100,135: XDRAW 69 AT 101,125: ROT= 6: XDRAW 71 AT 97,135: ROT= 0: XDRAW 2 AT 50,140: ROT= 6: XDRAW 71 AT 97,135: ROT= 0: XDRAW 68 AT 100,135: XDRAW 69 AT 101,125
329 FOR I = 98 TO 20 STEP -25: XDRAW 68 AT I,135: XDRAW 69 AT I,125: XDRAW 70 AT I -2,128: XDRAW 68 AT I,135: XDRAW 69 AT I,125: XDRAW 70 AT I -2,128: NEXT I
330 IT(2) = 98:CC = CC -1: PRINT "YOU'LL NEVER SEE THAT AGAIN ";NA$: RETURN
331 IF RO < >10 OR EL = 1 THEN GOTO 333
332 XDRAW N AT 120,140: FOR W = 1 TO 100: NEXT W: XDRAW N AT 120,140: GOSUB 97:IT(N) = 9: PRINT "KISS THAT GOODBYE ";NA$:CC = CC -1: RETURN
333 IF N = 15 THEN PRINT "THEY FLEW AWAY":IT(15) = 98
334 IF IT(N) = 99 THEN IT(N) = RO:N = 99:CC = CC -1: RETURN
335 RETURN
336 REM
337 IF N >20 AND N <27 THEN DI = N -20: RETURN
338 DI = 0
339 IF N = 27 AND RO = 1 THEN DI = 5: RETURN
340 IF N = 31 AND RO = 4 AND SD = 1 THEN DI = 99: RETURN
341 IF RO = 4 AND N = 33 THEN DI = 4: RETURN
342 IF RO = 1 AND N = 33 THEN DI = 3: RETURN
343 IF RO = 11 AND N = 33 THEN DI = 2: RETURN
344 IF RO = 15 AND N = 31 AND D2 = 1 THEN DI = 1: RETURN
345 IF RO = 14 AND N = 36 THEN DI = 5: RETURN
346 IF RO = 30 AND N = 36 THEN DI = 6: RETURN
347 IF RO = 16 AND N = 40 THEN DI = 98: RETURN
348 IF M = 0 THEN PRINT "TRY A DIRECTION":M = 1: RETURN
349 IF M = 1 THEN PRINT "YOU BETTER TRY SOMETHING ELSE":M = 2: RETURN
350 PRINT "SORRY BUT THATS JUST NOT POSSIBLE":M = 0: RETURN
351 RETURN
352 REM
353 DI = 0
354 IF N >20 THEN GOTO 368
355 IF IT(N) < >99 THEN PRINT "YOU DON'T HAVE IT ";NA$: RETURN
356 IF N = 1 AND IT(1) = 99 THEN D = 8: GOSUB 287: DRAW 49 AT 100,50: DRAW 35 AT 106,55: DRAW 49 AT 112,58: DRAW 31 AT 118,65: DRAW 43 AT 124,63: DRAW 35 AT 130,60: RETURN
357 IF N = 2 AND IT(2) = 99 AND IT(4) = 99 THEN D = 9: GOSUB 287: DRAW 32 AT 180,20: XDRAW 45 AT 170,30: XDRAW 45 AT 160,40: RETURN
358 IF N = 2 AND IT(2) = 99 THEN D = 9: GOSUB 287: GOTO 398
359 IF N = 5 AND IT(N) = 99 THEN D = 25: GOSUB 287: GOTO 398
360 IF N = 4 AND IT(N) = 99 THEN D = 23: GOSUB 287: GOTO 398
361 IF N = 3 AND IT(3) = 99 AND IT(4) = 99 THEN D = 24: GOSUB 287: DRAW 42 AT 119,50: DRAW 35 AT 119,60: DRAW 32 AT 119,70: DRAW 51 AT 119,80: DRAW 32 AT 119,90: RETURN
362 IF N = 3 AND IT(3) = 99 THEN D = 24: GOSUB 287: GOTO 398
363 IF N = 9 AND IT(9) = 99 THEN D = 30: GOSUB 287: DRAW 32 AT 120,80: DRAW 35 AT 130,80: DRAW 35 AT 140,80: DRAW 56 AT 150,80: PRINT "MOST OF THE PAGES HAVE BEEN TORN OUT!": RETURN
364 IF N = 8 AND IT(8) = 99 THEN D = 31: GOSUB 287: DRAW 24 AT 130,75: DRAW 50 AT 160,75: DRAW 39 AT 170,75: DRAW 43 AT 180,75: DRAW 35 AT 190,75: DRAW 49 AT 200,75: RETURN
365 IF N = 7 AND IT(7) = 99 THEN D = 32: GOSUB 287: RETURN
366 IF N = 10 AND IT(10) = 99 THEN D = 8: GOSUB 287: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "IT SAYS GOLDIE SLEPT IN THE BED BUT ALICE WAS SMARTER.": RETURN
367 IF N = 12 AND IT(12) = 99 THEN D = 8: GOSUB 287: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "THE KEY TO THE BOOKCASE MIGHT BE 2+2=22.": RETURN
368 IF N = 11 AND IT(11) = 99 THEN D = 8: GOSUB 287: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "IF YOU CAN'T KILLEM THEN SCAREM.": RETURN
369 IF RO < >1 THEN GOTO 372
370 IF N = 28 THEN D = 2: GOSUB 287: IF IT(1) = 1.2 THEN XDRAW 1 AT 100,100: RETURN
371 IF N = 27 THEN D = 3: GOSUB 287: RETURN
372 IF RO < >3 THEN GOTO 375
373 IF N = 29 AND D = 5 THEN D = 6: GOSUB 287:RO = 6: GOSUB 546:RO = 3: IF IT(2) = 6.1 THEN XDRAW 2 AT 200,50: RETURN
374 GOTO 382
375 IF RO = 12 AND N = 34 THEN D = 11: GOSUB 287
376 IF RO = 12 AND N = 34 AND IT(4) = 99 THEN HPLOT 5,100 TO 20,120 TO 35,100: HPLOT 20,80 TO 20,120: PRINT "THE PLOT THICKENS ";NA$: RETURN
377 IF RO = 13 AND N = 35 THEN D = 20: GOSUB 287: IF IT(4) = 4.1 THEN XDRAW 4 AT 170,90: RETURN
378 IF RO = 14 AND N = 36 THEN D = 22: GOSUB 287: IF IT(5) = 14.1 THEN XDRAW 5 AT 100,80: PRINT "I SEE A FLASHLIGHT HERE ";NA$: RETURN
379 IF RO = 15 AND N = 37 THEN D = 29: GOSUB 287: IF IT(9) = 15.1 THEN XDRAW 9 AT 100,130: PRINT "I SEE A OLD DIARY ";NA$: RETURN
380 IF RO = 15 AND N = 35 THEN D = 33: GOSUB 287: GOTO 398
381 IF RO = 15 AND N = 38 THEN D = 34: GOSUB 287: GOTO 398
382 IF RO < >16 THEN GOTO 388
383 IF N = 41 THEN D = 40: GOSUB 287: RETURN
384 IF N = 43 OR N = 44 OR N = 45 THEN D = 42: GOSUB 287: RETURN
385 IF N = 35 THEN D = 43: GOSUB 287: RETURN
386 IF N = 34 THEN PRINT "WHAT PICTURE??": RETURN
387 IF N = 40 THEN PRINT "I CAN'T SEE MYSELF???": RETURN
388 IF N = 47 AND RO = 32 THEN D = 48: GOSUB 287: IF IT(10) = 32.1 THEN XDRAW 10 AT 110,120: PRINT "I SEE A NOTE! ";NA$: RETURN
389 IF N = 35 AND RO = 32 THEN D = 47: GOSUB 287: RETURN
390 IF RO < >34 THEN GOTO 398
391 IF N = 35 THEN D = 51: GOSUB 287: GOTO 398
392 IF N = 38 THEN D = 55: GOSUB 287: GOTO 398
393 IF N = 55 THEN D = 52: GOSUB 287: GOTO 398
394 IF N = 54 THEN D = 54: GOSUB 287: IF IT(11) = 11.1 THEN XDRAW 11 AT 165,80: PRINT "I SEE A 'MESSAGE' HERE": RETURN
395 IF N = 53 THEN D = 53: GOSUB 287: GOTO 398
396 IF N = 37 THEN D = 56: GOSUB 287
397 IF N = 49 AND D = 56 THEN D = 57: GOSUB 287: IF IT(12) = 12.1 THEN XDRAW 12 AT 125,82: PRINT "I SEE A 'HINT' HERE ";NA$: RETURN
398 PRINT "I SEE NOTHING OUT OF THE ORDINARY ";NA$: RETURN
399 REM
400 DI = 0
401 IF RO = 4 AND N = 30 THEN N = 99:SD = 1: PRINT "A PASSAGE TO THE ROOF APPEARS": RETURN
402 IF N = 39 AND RO = 15 AND D < >27 THEN D = 26: GOSUB 287
403 IF N = 39 AND RO = 15 THEN HCOLOR= 0:D = 27: GOSUB 289:D = 28: HCOLOR= 3:BK = 1: GOSUB 289: HPLOT 100,58 TO 100,20 TO 130,20 TO 130,58: HPLOT 100,58 TO 130,45: PRINT "A SECRET PASSAGE!!":D2 = 1: RETURN
404 PRINT "NOTHING HAPPENS ";NA$: RETURN
405 REM
406 DI = 0: IF N = 255 THEN PRINT "OPEN WHAT?": RETURN
407 IF RO = 11 AND D1 = 0 THEN PRINT "IT'S LOCKED ";NA$: RETURN
408 IF RO = 11 AND IT(3) = 99 AND N = 33 THEN D1 = 1:N = 99: RETURN
409 IF RO = 2 THEN GOTO 416
410 PRINT "I DON'T THINK I CAN OPEN THAT OR IT MIGHT ALREADY BE OPEN ";NA$: RETURN
411 REM
412 DI = 0: IF N = 255 THEN PRINT "UNLOCK WHAT???": RETURN
413 IF D1 = 1 AND RO = 11 THEN PRINT "ITS UNLOCKED!": RETURN
414 IF RO = 11 AND IT(3) < >99 THEN PRINT "I SEE NO KEY ";NA$: RETURN
415 IF RO = 11 AND N = 33 THEN PRINT "O.K.":D1 = 2: RETURN
416 IF RO = 2 THEN PRINT "IT'S PERMANENTLY LOCKED ";NA$: RETURN
417 PRINT "YOU'VE GOT ME A LITTLE CONFUSED ";NA$: RETURN
418 REM
419 DI = 0
420 PRINT "LET US QUIT TESTING THE PROGRAM AND GET ON WITH THE GAME ";NA$: RETURN
421 REM
422 DI = 0
423 IF N = 1 THEN GOTO 352
424 GOTO 296
425 REM
426 DI = 0
427 PRINT "IT'S TOO HEAVY ";NA$: RETURN
428 REM
429 DI = 0
430 IF IT(7) < >99 THEN PRINT "YOU DON'T HAVE A SHOVEL!! ";NA$: RETURN
431 IF RO = 7 AND IT(8) = 7.1 THEN HPLOT 0,90 TO 20,80 TO 30,80 TO 90,90 TO 50,130 TO 20,130 TO 0,90: XDRAW 8 AT 10,100:IT(8) = 7: PRINT "A MAGIC LAMP!!!!!! ";NA$: RETURN
432 PRINT "DIGGING REVEALED NOTHING ";NA$: RETURN
433 REM
434 DI = 0
435 IF N = 8 AND IT(8) < >99 THEN PRINT "YOU DON'T HAVE THE MAGIC LAMP": RETURN
436 IF N = 8 AND IT(8) = 99 THEN GOTO 438
437 PRINT "I DON'T KNOW WHAT YOUR TRYING TO DO BUT I WOULD FORGET IT ";NA$: RETURN
438 REM
439 IF RL = 3 THEN PRINT "KAABOOM!!!! YOU OVER USED THE LAMP AND IT JUST BLEW UP!!! GAME OVER.": TEXT : NEW
440 FOR I = 1 TO 4: XDRAW 82 AT 10,50: XDRAW 84 AT 11,40: XDRAW 87 AT 10,50: FOR W = 1 TO 500: NEXT W: NEXT I
441 PRINT "A SMALL MYSTICAL GENIE APPEARS AND SAYS 'I CAN'T HELP HERE' THEN DISAPPEARS"
442 RL = RL +1: RETURN
443 REM
444 DI = 0
445 PRINT "NOTHING HAPPEND ";NA$: RETURN
446 REM
447 PRINT "DON'T WRECK EVERYTHING ";NA$: RETURN
448 DI = 0: REM
449 PRINT "DO YOU WANT TO SAVE THIS GAME? Y/N"
450 GET A$: PRINT A$: IF A$ = "N" THEN PRINT "THANK YOU FOR PLAYING ";NA$: TEXT : NEW
451 IF A$ < >"Y" THEN GOTO 449
452 PRINT CHR$(4);"OPEN WIZ.SAVE"
453 PRINT CHR$(4);"WRITE WIZ.SAVE"
454 PRINT GAME: PRINT CC: PRINT RL
455 PRINT RO: PRINT D: PRINT SD: PRINT OZ: PRINT EL: PRINT TH: PRINT BK: PRINT CA: PRINT D1: PRINT D2
456 PRINT BD: PRINT D3: PRINT CI: PRINT WA: PRINT TR: PRINT DW: PRINT KY: PRINT BO: PRINT DV: PRINT SN: PRINT RL: PRINT FG
457 FOR I = 1 TO 20: PRINT IT(I): NEXT I
458 PRINT CHR$(4);"CLOSE WIZ.SAVE"
459 RETURN
460 DI = 0
461 RE$ = ""
462 PRINT CHR$(4);"OPEN WIZ.SAVE"
463 PRINT CHR$(4);"READ WIZ.SAVE"
464 INPUT NGAME: INPUT CC: INPUT RL
465 IF NGAME = GAME THEN GOTO 477
466 PRINT CHR$(4);"CLOSE WIZ.SAVE"
467 RE$ = "O"
468 IF NGAME = 1 THEN GOTO 471
469 IF NGAME = 2 THEN GOTO 473
470 IF NGAME = 3 THEN GOTO 475
471 PRINT CHR$(4);"BLOAD CHAIN,A 520"
472 CALL 520"WIZARD1"
473 PRINT CHR$(4);"BLOAD CHAIN,A520"
474 CALL 520"WIZARD2"
475 PRINT CHR$(4);"BLOAD CHAIN,A520"
476 CALL 520"WIZARD3"
477 INPUT RO,D,SD,OZ,EL,TH,BK,CA,D1,D2,BD,D3,CI,WA,TR,DW,KY,BO,DV,SN,RL,FG
478 F = FRE(0)
479 FOR I = 1 TO 20: INPUT IT(I): NEXT I
480 PRINT CHR$(4);"CLOSE WIZ.SAVE"
481 POP
482 ON RO GOTO 7,15,23,31,53,40,47,59,69,84,116,128,135,141,147,157,167,172,177,182,187,192,197,202,207,212,217,222,227,243,251,258,264,277
483 PRINT "IT APPEARS THAT YOU HAVE NOT SAVED A PRIOR GAME ": RETURN
484 DI = 0: IF RO = 7 OR RO = 29 THEN RETURN
485 PRINT "NO": RETURN
486 FX = FRE(0)
487 V = 0:N = 0:V$ = "":N$ = "": PRINT "ENTER COMMAND--> ";
488 REM
489 GET A$:FX = FRE(0): PRINT A$;
490 IF A$ = CHR$(8) AND LEN(V$) >1 THEN V$ = LEFT$(V$,( LEN(V$) -1)): GOTO 489
491 IF A$ = CHR$(8) THEN V$ = "": GOTO 489
492 IF A$ = CHR$(13) THEN GOTO 496
493 IF A$ = CHR$(32) THEN GOTO 519
494 V$ = V$ +A$
495 GOTO 488
496 REM
497 IF V$ = "" THEN POKE -16303,0: GET A$: PRINT A$: POKE -16304,0: GOTO 486
498 J$ = V$: IF LEN(V$) >3 THEN J$ = LEFT$(V$,3):FF = FRE(0)
499 K$ = N$: & J$,K$
500 V = PEEK(0):N = PEEK(1)
501 IF V = 12 THEN RETURN
502 IF V = 12 THEN PRINT "IT'S MORE FUN WATCHING YOU FIND IT ";NA$: RETURN
503 IF V$ = "HELP" THEN PRINT "TRY A DIRECTION OR LOOKING AT SOMETHING": GOTO 486
504 IF V = 4 THEN N = 99: RETURN
505 IF V >20 AND V <27 THEN N = V:V = 3: RETURN
506 IF V < >6 THEN GOTO 515
507 HGR : PRINT TAB( 15)"INVENTORY ": PRINT :P = 20:Q = 50
508 FOR I = 1 TO 20: IF IT(I) = 99 THEN XDRAW I AT P,Q:P = P +40
509 IF P = 260 THEN P = 20:Q = Q +50
510 NEXT I
511 PRINT "ENTER 'LOOK' TO RETURN TO THE GAME"
512 INPUT V$: IF V$ = "" THEN V$ = "LOOK"
513 IF V$ < >"LOOK" THEN GOTO 511
514 GOTO 496
515 IF V <255 THEN RETURN
516 IF M = 0 THEN PRINT "THAT WORD DOESN'T RING ANY BELLS":M = 1: GOTO 486
517 IF M = 1 THEN PRINT "TRY TWO WORDS MAYBE":M = 2: GOTO 486
518 PRINT "I DON'T UNDERSTAND "V$:M = 0: GOTO 486
519 REM
520 GET A$:FX = FRE(0): PRINT A$;
521 IF A$ = CHR$(8) AND LEN(N$) >1 THEN N$ = LEFT$(N$,( LEN(N$) -1)): GOTO 520
522 IF A$ = CHR$(8) THEN N$ = "": GOTO 542
523 IF A$ = CHR$(13) THEN GOTO 526
524 N$ = N$ +A$
525 GOTO 520
526 REM
527 IF N$ = "BEEZLEBUB" THEN PRINT "YOUR SPELLING IS AS BAD AS MINE ";NA$:V = 5:N = 0: RETURN
528 IF N$ = "BEELZEBUB" THEN V = 5:N = 39: RETURN
529 IF N$ = "BEEZ" THEN PRINT "THE BOOKCASE VIBRATED!!":V = 5:N = 0: RETURN
530 L = LEN(N$)
531 FOR I = 1 TO L
532 IF MID$ (N$,I,1) = CHR$(32) THEN GOTO 541
533 NEXT
534 J$ = V$:FF = FRE(0): IF LEN(V$) >3 THEN J$ = LEFT$(V$,3)
535 K$ = N$:FF = FRE(0): IF LEN(N$) >4 THEN K$ = LEFT$(N$,4)
536 & J$,K$
537 V = PEEK(0):N = PEEK(1)
538 IF V = 255 THEN V = 0:N = 0: PRINT "I CAN'T ";V$;" SOMETHING ";NA$: GOTO 486
539 IF N = 255 THEN N = 0:V = 0: PRINT "I,M UNABLE TO ";V$;" A ";N$;" ";NA$: GOTO 486
540 RETURN
541 PRINT "ENTER TWO WORDS ONLY":V$ = "":N$ = "": GOTO 487
542 GET A$: PRINT A$;: IF A$ < > CHR$(8) THEN GOTO 523
543 GOTO 489
544 IF DI < >0 THEN PRINT "TRY ANOTHER DIRECTION":DI = 0: RETURN
545 RETURN
546 REM
547 P = 20:Q = 135
548 FOR I = 1 TO 20
549 IF IT(I) = RO THEN XDRAW I AT P,Q:P = P +40
550 IF P >240 THEN P = 20:Q = 100
551 NEXT
552 RETURN
553 REM
554 REM
555 REM
556 REM
557 PRINT CHR$(4);"BLOAD WIZ.SHAPES,A3192"
558 PRINT CHR$(4);"BLOAD BROOMS,A$8200"
559 PRINT CHR$(4);"BLOAD SCANNER,A$0803"
560 PRINT CHR$(4);"BLOAD WORDS,A$08A0"
561 POKE 232,120: POKE 233,12
562 POKE 1014,03: POKE 1015,08
563 IF PEEK(214) < >128 THEN NEW
564 RETURN

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZARD2.bas:

1 REM THISCOPYRIGHTED1981(C)SETOFP
2 GOSUB 461:IT(0) = 999
3 POKE 34,20: HOME :GAME = 2: POKE 34,0
4 HGR : SCALE= 1: ROT= 0: IF RE$ = "O" THEN GOSUB 344
5 RO = 51:D = 51: GOSUB 167: DRAW 57 AT 60,100: GOSUB 451
6 PRINT "YOU ARE IN A LONG HALL LINED WITH GRANITE PILLARS. A LARGE MIRROR IS TO THE SOUTH."
7 GOSUB 388: GOSUB 173
8 IF DI < >2 THEN GOTO 13
9 RO = 16
10 IF IT(16) = 99 THEN IT(16) = 51:CC = CC -1: PRINT "A THUNDERING VOICE SAYS 'THE CAGE STAYS'...": IF IT(17) = 99 THEN IT(17) = 51:CC = CC -1
11 PRINT CHR$(4);"BLOAD CHAIN,A520"
12 CALL 520"WIZARD1"
13 IF DI = 1 THEN GOTO 16
14 GOSUB 445: IF N = 99 THEN GOTO 5
15 GOTO 7
16 RO = 52:D = 52: GOSUB 167:D = 53: GOSUB 169: GOSUB 451
17 GOSUB 388: GOSUB 173
18 IF DI = 2 THEN GOTO 5
19 IF N = 31 OR DI = 3 THEN GOTO 29
20 IF N < >52 THEN GOTO 27
21 HCOLOR= 0:D = 53: GOSUB 169
22 FOR I = 54 TO 56: HCOLOR= 3:D = I: GOSUB 169: HCOLOR= 0: GOSUB 169: NEXT : HCOLOR= 3
23 DRAW 83 AT 100,100: DRAW 82 AT 100,90
24 FOR I = 1 TO 25: PRINT TAB( 15)"A M I M I C!!": CALL 64477: POKE -16298,0: POKE -16297,0: NEXT I
25 HGR : TEXT : HOME : PRINT "YOU JUST DISTURBED A MIMIC!!!": PRINT "YOU ARE DEAD. GAME OVER"
26 PRINT "MIMIC:A CREATURE THAT CAN PERFECTLY MIMIC STONE OR WOOD OBJECTS SUCH AS DOORS,CHESTS,ROCKS ETC. WHEN A KILLER MIMIC SENSES IT HAS BEEN TOUCHED IT WILL LASH OUT AND KILL SWIFTLY": TEXT : NEW
27 GOSUB 445: IF N = 99 THEN GOTO 16
28 GOTO 17
29 RO = 53:D = 57: GOSUB 167: GOSUB 451
30 GOSUB 388: GOSUB 173
31 ON DI GOTO 50,91,129,16,34
32 GOSUB 445: IF N = 99 THEN GOTO 29
33 GOTO 30
34 RO = 54:D = 58: GOSUB 167: IF D3 = 0 THEN D = 59: GOSUB 169: GOTO 36
35 D = 60: GOSUB 169
36 GOSUB 451
37 GOSUB 388: GOSUB 173
38 IF DI = 3 THEN GOTO 60
39 IF DI = 6 THEN GOTO 29
40 IF DI = 1 AND D3 = 1 THEN GOTO 44
41 IF DI = 1 THEN PRINT "A SINISTER MEDICINE MAN WHO WAS ABLE TO TURN PEOPLE TO STONE HAS PLACED A CURSE ON THIS DOOR SO IT WON'T OPEN": GOTO 37
42 GOSUB 445: IF N = 99 THEN GOTO 34
43 GOTO 37
44 RO = 55:D = 61: GOSUB 167: GOSUB 451
45 IF IT(14) = 55.1 THEN XDRAW 14 AT 115,80: PRINT "THERE IS A BOTTLE FULL OF WATER HERE"
46 GOSUB 388: GOSUB 173
47 IF DI = 2 THEN GOTO 34
48 GOSUB 445: IF N = 99 THEN GOTO 44
49 GOTO 46
50 RO = 56:D = 69: GOSUB 167: GOSUB 451
51 GOSUB 388: GOSUB 173
52 ON DI GOTO 60,29,53,91,55
53 GOSUB 445: IF N = 99 THEN GOTO 50
54 GOTO 51
55 RO = 57:D = 70: GOSUB 167: GOSUB 451
56 GOSUB 388: GOSUB 173
57 IF DI = 6 THEN GOTO 50
58 GOSUB 445: IF N = 99 THEN GOTO 55
59 GOTO 56
60 RO = 58:D = 66: GOSUB 167: GOSUB 451
61 PRINT "WHICH WAY NOW ";NA$;" ?"
62 GOSUB 388: GOSUB 173
63 ON DI GOTO 64,50,66,34
64 GOSUB 445: IF N = 99 THEN GOTO 60
65 GOTO 62
66 RO = 59:D = 68: GOSUB 167: GOSUB 451
67 GOSUB 388: GOSUB 173
68 IF DI = 3 THEN GOTO 72
69 IF DI = 4 THEN GOTO 60
70 GOSUB 445: IF N = 99 THEN GOTO 66
71 GOTO 67
72 RO = 60:D = 67: GOSUB 167: GOSUB 451
73 IF IT(15) = 20.1 THEN PRINT "A GLOW IS COMING FROM THE ROOM AHEAD"
74 GOSUB 388: GOSUB 173
75 ON DI GOTO 78,129,76,66
76 GOSUB 445: IF N = 99 THEN GOTO 72
77 GOTO 74
78 RO = 61:D = 63: GOSUB 167: IF CI < >1 THEN D = 64: GOSUB 169: HPLOT 99,85 TO 99,0
79 IF IT(15) = 20.1 THEN XDRAW 15 AT 200,50: PRINT "I SEE A SWARM OF FIREFLYS!! ";NA$
80 IF IT(17) = 99 AND IT(15) = 20.1 THEN IT(15) = 98: FOR W = 1 TO 500: NEXT W: PRINT "OH MY GOSH THE BAT ATE EM!!": XDRAW 15 AT 200,50
81 IF CI = 2 THEN GOSUB 451: GOTO 85
82 IF CI = 1 THEN D = 65: GOSUB 169: GOTO 85
83 HPLOT 99,85 TO 99,0: GOSUB 451
84 PRINT "ENTER COMMAND-->";: GET A$: HCOLOR= 0: HPLOT 99,85 TO 99,0:D = 64: GOSUB 169:D = 65: HCOLOR= 3: GOSUB 169: FOR I = 1 TO 5: PRINT TAB( 10)"** CAVE IN **": NEXT I:CI = 1
85 GOSUB 388: GOSUB 173
86 IF CI = 1 THEN PX = PX +1: IF PX >3 THEN PRINT "THE AIR IS BEING USED UP IN HERE": IF PX >5 THEN PRINT "YOU HAVE JUST SUFFOCATED ";NA$: PRINT "GAME OVER!!!": TEXT : NEW
87 IF DI = 2 AND CI < >1 THEN GOTO 72
88 IF DI = 2 THEN PRINT "YOU CAN'T GET BY THE ROCKS": GOTO 85
89 GOSUB 445: IF N = 99 THEN GOTO 78
90 GOTO 85
91 RO = 62:D = 62: GOSUB 167: GOSUB 451
92 PRINT "THERE IS A OLD STUMP HERE BUT ALL OF THE BARK IS GONE"
93 GOSUB 388: GOSUB 173
94 ON DI GOTO 29,96,50,98
95 IF DI = 99 THEN GOTO 137
96 GOSUB 445: IF N = 99 THEN GOTO 91
97 GOTO 93
98 RO = 63:D = 72: GOSUB 167: GOSUB 451
99 GOSUB 388: GOSUB 173
100 ON DI GOTO 101,101,91,129,101,103
101 GOSUB 445: IF N = 99 THEN GOTO 98
102 GOTO 99
103 RO = 64:D = 74: GOSUB 167: IF TR = 1 THEN D = 76: GOSUB 169: GOTO 105
104 D = 75: GOSUB 169
105 PRINT "YOU ARE IN A BOX CANYON WITH A HIGH LEDGE ON ONE SIDE"
106 GOSUB 451
107 GOSUB 388: GOSUB 173
108 IF DI = 99 THEN GOTO 112
109 IF DI = 5 THEN GOTO 98
110 GOSUB 445: IF N = 99 THEN GOTO 103
111 GOTO 107
112 RO = 65:D = 77: GOSUB 167: GOSUB 451
113 IF KY = 1 THEN GOTO 116
114 PRINT "A MEAN AND NASTY KYBOR STANDS GUARD "
115 XDRAW 75 AT 180,90: XDRAW 70 AT 175,93: XDRAW 67 AT 180,83
116 GOSUB 388: GOSUB 173
117 IF DI = 3 AND KY = 0 THEN PRINT "THE KYBOR WON'T LET YOU PASS": GOTO 116
118 IF DI = 3 THEN GOTO 122
119 IF DI = 6 THEN GOTO 103
120 GOSUB 445: IF N = 99 THEN GOTO 112
121 GOTO 116
122 RO = 66:D = 80: GOSUB 167: IF BO = 0 THEN XDRAW 81 AT 100,100
123 IF BO = 0 THEN PRINT "THE BOOGIEMAN!!"
124 GOSUB 451: IF IT(16) = 66 THEN PRINT "I SEE A CAGE ";NA$
125 GOSUB 388: GOSUB 173
126 IF DI = 4 THEN GOTO 112
127 GOSUB 445: IF N = 99 THEN GOTO 122
128 GOTO 125
129 RO = 67:D = 81: GOSUB 167: GOSUB 451
130 IF IT(17) = 67.1 THEN GOSUB 135: PRINT "A BAT!!!"
131 GOSUB 388: GOSUB 173
132 ON DI GOTO 72,133,98,29
133 GOSUB 445: IF N = 99 THEN GOTO 129
134 GOTO 131
135 XDRAW 63 AT 40,90: XDRAW 62 AT 40,91: XDRAW 60 AT 33,95: XDRAW 61 AT 52,96
136 RETURN
137 RO = 68:D = 82: GOSUB 167: GOSUB 451
138 PRINT "THERE IS A POOL OF WATER HERE AND A ROCK THAT HAS BEEN RUBBED VERY SMOOTH. THE BRIDGE LEADS NORTH"
139 IF SN = 0 THEN XDRAW 64 AT 130,110: PRINT "A SNAKE!!!"
140 GOSUB 388: GOSUB 173
141 IF DI = 1 AND SN = 0 THEN PRINT "THE SNAKE BARS YOUR WAY": GOTO 140
142 IF DI = 1 THEN GOTO 146
143 IF DI = 99 THEN GOTO 91
144 GOSUB 445: IF N = 99 THEN GOTO 137
145 GOTO 140
146 RO = 69:D = 83: GOSUB 167: GOSUB 451
147 IF DV = 1 THEN GOTO 149
148 XDRAW 84 AT 95,40: HPLOT 77,55 TO 90,55: HPLOT 146,55 TO 127,55: PRINT "OH OH IT'S LUCIFER HIMSELF": GOTO 150
149 HPLOT 77,55 TO 146,55
150 GOSUB 388: GOSUB 173
151 IF DI = 1 AND DV = 0 THEN PRINT "LUCIFER WON'T LET YOU ";NA$: GOTO 150
152 ON DI GOTO 155,137
153 GOSUB 445: IF N = 99 THEN GOTO 146
154 GOTO 150
155 D = 78: GOSUB 167
156 PRINT "HURRAY YOU HAVE FOUND MOST OF THE STASHBUCK FORTUNE. HIT 'RETURN' FOR THE MASTERS SECTION": INPUT A$
157 PRINT CHR$(4);"RUN WIZARD3"
158 END
159 IT(17) = 98:SN = 1
160 FOR I = 0 TO 60 STEP 10
161 XDRAW 63 AT 190 -I,20 +I: XDRAW 62 AT 190 -I,21 +I: XDRAW 60 AT 183 -I,25 +I: XDRAW 61 AT 202 -I,26 +I
162 XDRAW 60 AT 183 -I,25 +I: XDRAW 61 AT 202 -I,26 +I: XDRAW 58 AT 183 -I,25 +I: XDRAW 59 AT 202 -I,26 +I
163 XDRAW 63 AT 190 -I,20 +I: XDRAW 62 AT 190 -I,21 +I: XDRAW 58 AT 183 -I,25 +I: XDRAW 59 AT 202 -I,26 +I
164 NEXT I: PRINT "HE KILLED IT!!!":N = 99: RETURN
165 END
166 END
167 REM
168 HGR : HCOLOR= 3
169 POKE 05,112: POKE 06,130
170 POKE 07,D
171 CALL 33280
172 RETURN
173 REM
174 REM
175 ON V GOTO 178,204,223,238,259,176,383,405,263,267,272,404,275,279,282,286,324,330,332,344,176,176,176,176,176,176,366,372,376
176 IF RO < >29 THEN PRINT "I SORT OF UNDERSTAND WHAT YOU MEAN BUT YOU BETTER TRY SOMETHING ELSE"
177 RETURN
178 REM
179 REM
180 DI = 0
181 IF CC = >7 THEN PRINT "YOU CAN'T CARRY ANYMORE ";NA$: RETURN
182 IF N < >39 THEN GOTO 187
183 IF RO < >68 THEN GOTO 187
184 IF IT(14) < >99 THEN PRINT "WITH WHAT?": RETURN
185 IF IT(15) = 99 THEN PRINT "O.K. BUT YOU JUST KILLED THE FIREFLYS":IT(15) = 98: FOR W = 1 TO 1000: NEXT W:WA = 0: RETURN
186 PRINT "O.K. ":WA = 0: RETURN
187 IF N >20 THEN PRINT "HOLY COW I CAN'T GET THAT": RETURN
188 IF N = 16 AND BO = 0 THEN PRINT "THE BOOGEYMAN WON'T LET YOU ";NA$: RETURN
189 IF N = 14 AND RO = 55 AND IT(14) = 55.1 THEN IT(14) = 55
190 IF N < >15 THEN GOTO 195
191 IF IT(15) < >RO AND IT(15) < >20.1 THEN GOTO 201
192 IF IT(14) < >99 THEN PRINT "THEY IMMEDIATELY FLY OUT OF YOUR HAND": RETURN
193 IF WA = 0 THEN PRINT "THEY DROWNED IN THE WATER BOTTLE":IT(15) = 98:N = 99: RETURN
194 IT(15) = 99:N = 99:CC = CC +1: RETURN
195 REM
196 IF N = 17 AND IT(16) < >99 THEN PRINT "WHERES THE CAGE": RETURN
197 IF N = 17 AND IT(13) = 99 THEN PRINT "THE BAT IS SCARED OF SOMETHING YOU GOT": RETURN
198 IF N = 17 AND IT(17) = 67.1 AND RO = 67 THEN IT(17) = RO
199 IF IT(N) = RO THEN IT(N) = 99:N = 99:V = 0: GOTO 202
200 IF IT(N) = 99 THEN PRINT "YOU ARE ALREADY CARRYING IT": RETURN
201 PRINT "I DON,T SEE IT": RETURN
202 IF N$ = "CAGE" AND IT(17) = RO OR N$ = "CAGE" AND IT(17) = RO THEN IT(17) = 99:CC = CC +1
203 CC = CC +1: PRINT "0.K.";NA$: RETURN
204 REM
205 DI = 0
206 IF N >20 THEN PRINT "YOU CAN'T EVEN GET THAT MUCH LESS DROP IT ";NA$: RETURN
207 IF IT(N) < >99 THEN PRINT "YOU DON,T SEEM TO BE CARRYING IT": RETURN
208 IF RO = 69 AND DV = 0 THEN GOTO 216
209 IF N < >14 AND N < >15 THEN GOTO 212
210 IF N = 15 THEN PRINT "THEY FLEW AWAY!":IT(15) = 98: RETURN
211 IF N = 14 THEN PRINT "THE BOTTLE SMASHED INTO THOUSANDS OF PIECES AND DISAPPEARED":IT(14) = 98: IF IT(15) = 99 THEN IT(15) = 20.1: RETURN
212 IF N < >16 AND N < >17 THEN GOTO 216
213 IF N = 16 AND IT(17) = 99 THEN CC = CC -1:IT(17) = RO: IF RO = 68 AND SN = 0 THEN IT(17) = 98: PRINT "THE SNAKE ATE THE BAT": FOR W = 1 TO 1000: NEXT W
214 IF N = 17 AND SN = 0 AND RO = 68 THEN GOTO 159
215 IF N = 17 THEN IT(17) = 98: PRINT "THE BAT FLEW AWAY":CC = CC -1: RETURN
216 IF RO < >69 OR DV < >0 THEN GOTO 221
217 IF N = 16 AND IT(17) = 99 THEN IT(17) = 98:CC = CC -1
218 IF N < >8 THEN IT(N) = 98: PRINT "LUCIFER GRABS IT AND SAYS THANKS":CC = CC -1: RETURN
219 IF RL <2 THEN PRINT "LUCIFER TAKES IT..RUBS IT ONCE AND SAYS THANKS":CC = CC -1:IT(8) = 98: RETURN
220 PRINT "LUCIFER GRABS IT AND RUBS IT....P O W!! IT BLEW UP AND KILLED HIM":CC = CC -1:IT(8) = 98:DV = 1:N = 99: RETURN
221 IF IT(N) = 99 THEN IT(N) = RO:N = 99:CC = CC -1: RETURN
222 RETURN
223 REM
224 IF N >20 AND N <27 THEN DI = N -20: RETURN
225 DI = 0
226 IF RO = 53 AND N = 36 THEN DI = 5: RETURN
227 IF RO = 54 AND N = 36 THEN DI = 6: RETURN
228 IF RO = 54 AND N = 33 THEN DI = 1: RETURN
229 IF N = 36 AND RO = 56 THEN DI = 5: RETURN
230 IF N = 36 AND RO = 57 THEN DI = 6: RETURN
231 IF N = 38 AND RO = 64 AND TR = 0 THEN PRINT "ITS TOO SMALL ";NA$: RETURN
232 IF N = 38 AND RO = 64 AND TR = 1 THEN DI = 99: RETURN
233 IF N = 38 AND RO = 65 THEN DI = 6: RETURN
234 IF M = 0 THEN PRINT "TRY A DIRECTION":M = 1: RETURN
235 IF M = 1 THEN PRINT "YOU BETTER TRY SOMETHING ELSE":M = 2: RETURN
236 PRINT "SORRY BUT THATS JUST NOT POSSIBLE":M = 0: RETURN
237 RETURN
238 REM
239 DI = 0
240 IF N >20 THEN GOTO 254
241 IF IT(N) < >99 THEN PRINT "YOU DON'T HAVE IT ";NA$: RETURN
242 IF N = 1 AND IT(1) = 99 THEN D = 8: GOSUB 167: DRAW 49 AT 100,50: DRAW 35 AT 106,55: DRAW 49 AT 112,58: DRAW 31 AT 118,65: DRAW 43 AT 124,63: DRAW 35 AT 130,60: RETURN
243 IF N = 2 AND IT(2) = 99 AND IT(4) = 99 THEN D = 9: GOSUB 167: DRAW 32 AT 180,20: XDRAW 45 AT 170,30: XDRAW 45 AT 160,40: RETURN
244 IF N = 2 AND IT(2) = 99 THEN D = 9: GOSUB 167: GOTO 258
245 IF N = 5 AND IT(N) = 99 THEN D = 25: GOSUB 167: GOTO 258
246 IF N = 4 AND IT(N) = 99 THEN D = 23: GOSUB 167: GOTO 258
247 IF N = 3 AND IT(3) = 99 AND IT(4) = 99 THEN D = 24: GOSUB 167: DRAW 42 AT 119,50: DRAW 35 AT 119,60: DRAW 32 AT 119,70: DRAW 51 AT 119,80: DRAW 32 AT 119,90: RETURN
248 IF N = 3 AND IT(3) = 99 THEN D = 24: GOSUB 167: GOTO 258
249 IF N = 9 AND IT(9) = 99 THEN D = 30: GOSUB 167: DRAW 32 AT 120,80: DRAW 35 AT 130,80: DRAW 35 AT 140,80: DRAW 56 AT 150,80: PRINT "MOST OF THE PAGES HAVE BEEN TORN OUT!": RETURN
250 IF N = 8 AND IT(8) = 99 THEN D = 31: GOSUB 167: DRAW 24 AT 130,75: DRAW 50 AT 160,75: DRAW 39 AT 170,75: DRAW 43 AT 180,75: DRAW 35 AT 190,75: DRAW 49 AT 200,75: RETURN
251 IF N = 7 AND IT(7) = 99 THEN D = 32: GOSUB 167: RETURN
252 IF N = 10 AND IT(10) = 99 THEN D = 8: GOSUB 167: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "IT SAYS GOLDIE SLEPT IN THE BED BUT ALICE WAS SMARTER.": RETURN
253 IF N = 12 AND IT(12) = 99 THEN D = 8: GOSUB 167: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "THE KEY TO THE BOOKCASE MIGHT BE 2+2=22.": RETURN
254 IF N = 11 AND IT(11) = 99 THEN D = 8: GOSUB 167: HPLOT 100,70 TO 130,70: HPLOT 90,80 TO 125,80: HPLOT 85,95 TO 120,95: PRINT "IF YOU CAN'T KILLEM THEN SCAREM.": RETURN
255 IF N = 50 AND RO = 51 THEN D = 50: GOSUB 167: PRINT "I SEE STRANGE WRITING HERE ";NA$: RETURN
256 IF N = 34 AND RO = 57 THEN D = 71: GOSUB 167: DRAW 84 AT 100,100: PRINT "FAR BELOW A FIGURE HOLDING A PITCHFORK CAN BE SEEN": RETURN
257 IF RO = 62 AND N = 37 THEN D = 73: GOSUB 167
258 PRINT "I SEE NOTHING OUT OF THE ORDINARY ";NA$: RETURN
259 REM
260 DI = 0
261 IF RO = 54 AND N = 51 THEN D3 = 1:N = 99: RETURN
262 PRINT "NOTHING HAPPENS ";NA$: RETURN
263 REM
264 DI = 0: IF N = 255 THEN PRINT "OPEN WHAT?": RETURN
265 IF RO = 54 AND D3 = 0 THEN DI = 1: RETURN
266 PRINT "I DON'T THINK I CAN OPEN THAT OR IT MIGHT ALREADY BE OPEN ";NA$: RETURN
267 REM
268 DI = 0: IF N = 255 THEN PRINT "UNLOCK WHAT???": RETURN
269 IF D3 = 1 THEN PRINT "ITS UNLOCKED! ";NA$: RETURN
270 IF RO = 54 THEN DI = 1: RETURN
271 PRINT "YOU'VE GOT ME A LITTLE CONFUSED ";NA$: RETURN
272 REM
273 DI = 0
274 PRINT "LET US QUIT TESTING THE PROGRAM AND GET ON WITH THE GAME ";NA$: RETURN
275 REM
276 DI = 0
277 IF N = 1 THEN GOTO 238
278 GOTO 176
279 REM
280 DI = 0
281 PRINT "IT'S TOO HEAVY ";NA$: RETURN
282 REM
283 DI = 0
284 IF IT(7) < >99 THEN PRINT "YOU DON'T HAVE A SHOVEL!! ";NA$: RETURN
285 PRINT "DIGGING REVEALED NOTHING ";NA$: RETURN
286 DI = 0: IF N < >8 THEN GOTO 288
287 DI = 0: IF RL >2 THEN FOR I = 1 TO 3: POKE -16298,0: POKE -16297,0: CALL 64477: NEXT I: PRINT "YOU OVER USED THE LAMP AND IT BLEW UP. GAME OVER!": TEXT : NEW
288 IF N = 8 AND IT(8) < >99 THEN PRINT "YOU DON'T HAVE THE MAGIC LAMP": RETURN
289 IF N = 37 AND RO = 62 AND IT(5) = 99 THEN PRINT "SOMETHING YOU GOT STOPS ME ";NA$: RETURN
290 IF N = 37 AND RO = 62 THEN DI = 99: RETURN
291 IF N = 43 AND RO = 68 THEN DI = 99: RETURN
292 IF N = 8 AND IT(8) = 99 THEN GOTO 294
293 PRINT "I DON'T KNOW WHAT YOUR TRYING TO DO BUT I WOULD FORGET IT ";NA$: RETURN
294 IF RO < >52 OR D < >53 THEN GOTO 308
295 IF IT(13) = 52.1 THEN GOTO 301
296 XDRAW 65 AT 20,110: XDRAW 70 AT 20,110: XDRAW 67 AT 21,100: PRINT "THE GENIE!!!": XDRAW 65 AT 20,110: XDRAW 70 AT 20,110: XDRAW 67 AT 21,100: XDRAW 65 AT 30,110: XDRAW 67 AT 31,100: XDRAW 76 AT 30,110
297 HCOLOR= 0:D = 53: GOSUB 169: FOR I = 54 TO 56: HCOLOR= 3:D = I: GOSUB 169: HCOLOR= 0: GOSUB 169: NEXT : HCOLOR= 3: XDRAW 83 AT 100,100: XDRAW 82 AT 100,90
298 XDRAW 83 AT 100,100: XDRAW 82 AT 100,90: XDRAW 83 AT 50,50: XDRAW 82 AT 50,40: XDRAW 83 AT 50,50: XDRAW 82 AT 50,40: XDRAW 83 AT 40,80: XDRAW 82 AT 40,70
299 PRINT "YOU JUST WIPED OUT A WHOLE GENERATION OF GENIES ";NA$:N = 99:IT(8) = 98: RETURN
300 END
301 IF RO < >52 OR D < >53 THEN GOTO 308
302 XDRAW 65 AT 20,110: XDRAW 70 AT 20,110: XDRAW 67 AT 21,100: PRINT "THE GENIE!!!": XDRAW 65 AT 20,110: XDRAW 70 AT 20,110: XDRAW 67 AT 21,100: XDRAW 65 AT 30,110: XDRAW 67 AT 31,100: XDRAW 76 AT 30,110: XDRAW 65 AT 30,110: XDRAW 67 AT 31,100: XDRAW 76 AT 30,110
303 XDRAW 65 AT 40,110: XDRAW 67 AT 41,100: XDRAW 78 AT 40,110: XDRAW 65 AT 40,110: XDRAW 67 AT 41,100: XDRAW 78 AT 40,110: XDRAW 65 AT 45,110: XDRAW 67 AT 46,100: XDRAW 70 AT 45,110
304 XDRAW 67 AT 46,100: HPLOT 47,103 TO 57,103: HPLOT 58,103 TO 68,106 TO 68,117: HCOLOR= 0: HPLOT 47,103 TO 57,103: HCOLOR= 3
305 HPLOT 47,103 TO 57,108: XDRAW 13 AT 55,75:IT(13) = 52
306 XDRAW 13 AT 55,75: ROT= 16: XDRAW 13 AT 80,100: XDRAW 13 AT 80,100: XDRAW 13 AT 120,120: XDRAW 13 AT 120,120: XDRAW 13 AT 140,140: ROT= 0:N = 99
307 PRINT "THE GENIE CAREFULLY PICKED THE MIMICS POCKET AND DISCOVERED A WAND": FOR I = 1 TO 1000: NEXT I:RL = RL +1: RETURN
308 IF RO < >65 OR KY < >0 THEN GOTO 320
309 FOR I = 0 TO 90 STEP 10: XDRAW 65 AT 30 +I,85: XDRAW 67 AT 31 +I,75: XDRAW 70 AT 30 +I,85: XDRAW 70 AT 30 +I,85: XDRAW 78 AT 30 +I,85: XDRAW 78 AT 30 +I,85: XDRAW 76 AT 30 +I,85: XDRAW 76 AT 30 +I,85: XDRAW 65 AT 30 +I,85: XDRAW 67 AT 31 +I,75: NEXT I: XDRAW 65 AT 115,85: XDRAW 67 AT 116,76: XDRAW 70 AT 115,85
310 XDRAW 75 AT 180,90: XDRAW 70 AT 175,93: XDRAW 67 AT 180,83: FOR I = 0 TO 30 STEP 10: XDRAW 75 AT 175 -I,85: XDRAW 70 AT 170 -I,88: XDRAW 75 AT 175 -I,85: XDRAW 70 AT 170 -I,88: NEXT I
311 XDRAW 75 AT 140,85: XDRAW 70 AT 135,88
312 XDRAW 70 AT 115,85: XDRAW 79 AT 122,85: CALL 64477: FOR W = 1 TO 100: NEXT W: XDRAW 79 AT 122,85: XDRAW 70 AT 115,85: XDRAW 70 AT 115,85: XDRAW 79 AT 122,85: CALL 64477: FOR W = 1 TO 100: NEXT W: XDRAW 79 AT 122,85: XDRAW 70 AT 115,85
313 XDRAW 70 AT 115,85: XDRAW 75 AT 140,85: XDRAW 70 AT 135,88: XDRAW 65 AT 115,85: XDRAW 67 AT 116,76
314 ROT= 48: XDRAW 75 AT 115,80: ROT= 32: XDRAW 74 AT 115,80: ROT= 0
315 FOR I = 1 TO 10: XDRAW 65 AT 110,70: XDRAW 71 AT 110,70: XDRAW 80 AT 110,62: XDRAW 65 AT 110,70: XDRAW 71 AT 110,70: XDRAW 80 AT 110,62: XDRAW 65 AT 110,30: XDRAW 71 AT 110,30: XDRAW 80 AT 110,22: XDRAW 65 AT 110,30: XDRAW 71 AT 110,30: XDRAW 80 AT 110,22: NEXT I
316 XDRAW 65 AT 90,85: XDRAW 70 AT 90,85: XDRAW 70 AT 90,85: XDRAW 79 AT 95,85
317 ROT= 48: XDRAW 75 AT 115,80: ROT= 32: XDRAW 74 AT 115,80: ROT= 48: XDRAW 75 AT 200,30: XDRAW 75 AT 200,30: XDRAW 75 AT 100,5
318 XDRAW 75 AT 100,5: XDRAW 75 AT 50,20: XDRAW 75 AT 50,20: XDRAW 75 AT 20,40: XDRAW 75 AT 20,40:KY = 1
319 PRINT "WOW WHAT A MACHO GENIE!!!":N = 99: ROT= 0:RL = RL +1: RETURN
320 REM
321 FOR I = 1 TO 4: XDRAW 65 AT 10,50: XDRAW 67 AT 11,40: XDRAW 70 AT 10,50: FOR W = 1 TO 500: NEXT W: NEXT I
322 PRINT "A SMALL MYSTICAL GENIE MATERIALIZES AND SAYS 'I CAN'T HELP HERE' THEN DISAPPEARS"
323 RL = RL +1: RETURN
324 REM
325 DI = 0
326 IF N >20 THEN PRINT "THATS ABSURD": RETURN
327 IF IT(N) < >99 THEN GOTO 207
328 IF RO = 61 AND N = 13 THEN CI = 2:N = 99: RETURN
329 PRINT "NOTHING HAPPEND ";NA$: RETURN
330 DI = 0
331 PRINT "USE SOME FINESSE INSTEAD ";NA$: RETURN
332 DI = 0: REM
333 PRINT "DO YOU WANT TO SAVE THIS GAME? Y/N"
334 GET A$: PRINT A$: IF A$ = "N" THEN PRINT "THANK YOU FOR PLAYING ";NA$: TEXT : NEW
335 IF A$ < >"Y" THEN GOTO 333
336 PRINT CHR$(4);"OPEN WIZ.SAVE"
337 PRINT CHR$(4);"WRITE WIZ.SAVE"
338 PRINT GAME: PRINT CC: PRINT RL
339 PRINT RO: PRINT D: PRINT SD: PRINT OZ: PRINT EL: PRINT TH: PRINT BK: PRINT CA: PRINT D1: PRINT D2
340 PRINT BD: PRINT D3: PRINT CI: PRINT WA: PRINT TR: PRINT DW: PRINT KY: PRINT BO: PRINT DV: PRINT SN: PRINT RL: PRINT FG
341 FOR I = 1 TO 20: PRINT IT(I): NEXT I
342 PRINT CHR$(4);"CLOSE WIZ.SAVE"
343 RETURN
344 DI = 0: REM
345 RE$ = ""
346 PRINT CHR$(4);"OPEN WIZ.SAVE"
347 PRINT CHR$(4);"READ WIZ.SAVE"
348 INPUT NGAME: INPUT CC: INPUT RL
349 IF NGAME = GAME THEN GOTO 359
350 PRINT CHR$(4);"CLOSE WIZ.SAVE"
351 RE$ = "O"
352 IF NGAME = 1 THEN GOTO 355
353 IF NGAME = 2 THEN GOTO 357
354 GOTO 357
355 PRINT CHR$(4);"BLOAD CHAIN,A 520"
356 CALL 520"WIZARD1"
357 PRINT CHR$(4);"BLOAD CHAIN,A520"
358 CALL 520"WIZARD2"
359 INPUT RO,D,SD,OZ,EL,TH,BK,CA,D1,D2,BD,D3,CI,WA,TR,DW,KY,BO,DV,SN,RL,FG
360 FOR I = 1 TO 20: INPUT IT(I): NEXT I
361 PRINT CHR$(4);"CLOSE WIZ.SAVE"
362 POP
363 RO = RO -50
364 ON RO GOTO 5,16,29,34,44,60,50,55,66,72,78,91,98,103,112,122,129,137,146,155
365 PR# 6
366 REM
367 DI = 0
368 IF IT(14) < >99 OR WA < >0 THEN PRINT "YOU CAN'T ";NA$: RETURN
369 WA = 1: PRINT "THE WATER SEEPED INTO THE GROUND"
370 IF RO = 64 THEN WA = 1:TR = 1: PRINT "THE TREE SUDDENLY GROWS VERY TALL":N = 99
371 RETURN
372 REM
373 DI = 0
374 IF IT(14) < >99 OR WA < >0 THEN PRINT "YOU DON'T HAVE ANY ";NA$: RETURN
375 WA = 1: PRINT "THANKS THAT TASTES GOOD ";NA$: RETURN
376 REM
377 DI = 0
378 IF N < >41 THEN PRINT "RULE 3.2.1 STATES THAT YOU MAY ONLY PUNCHOUT BOOGEYMEN AND THE NEIGHBORS DOG": RETURN
379 IF RO < >66 OR BO < >0 THEN PRINT "WHAT BOOGEYMAN?": RETURN
380 ROT= 6: XDRAW 85 AT 30,50: XDRAW 85 AT 30,50: ROT= 0: XDRAW 85 AT 50,90: XDRAW 85 AT 50,90: XDRAW 85 AT 90,100: XDRAW 81 AT 100,100: XDRAW 81 AT 150,100: XDRAW 81 AT 150,100
381 XDRAW 81 AT 200,100: XDRAW 81 AT 200,100: XDRAW 81 AT 225,100: XDRAW 81 AT 225,100:BO = 1:N = 99: RETURN
382 RETURN
383 REM
384 DI = 0
385 IF N = 41 THEN PRINT "YOU CAN'T KILL THE BOOGEYMAN": RETURN
386 IF N = 17 AND IT(17) = 67.1 OR N = 17 AND IT(17) = 99 THEN IT(17) = 98: PRINT "O.K.":N = 99: RETURN
387 PRINT "NO WAY": RETURN
388 FX = FRE(0)
389 V = 0:N = 0:V$ = "":N$ = "": PRINT "ENTER COMMAND--> ";
390 IF PEEK(214) < >128 THEN NEW
391 GET A$:FX = FRE(0): PRINT A$;
392 IF A$ = CHR$(8) AND LEN(V$) >1 THEN V$ = LEFT$(V$,( LEN(V$) -1)): GOTO 391
393 IF A$ = CHR$(8) THEN V$ = "": GOTO 391
394 IF A$ = CHR$(13) THEN GOTO 398
395 IF A$ = CHR$(32) THEN GOTO 421
396 V$ = V$ +A$
397 GOTO 390
398 REM
399 IF V$ = "" THEN POKE -16303,0: GET A$: PRINT A$: POKE -16304,0: GOTO 388
400 J$ = V$: IF LEN(V$) >3 THEN J$ = LEFT$(V$,3):FF = FRE(0)
401 K$ = N$: & J$,K$
402 V = PEEK(0):N = PEEK(1)
403 IF V = 12 THEN RETURN
404 IF V = 12 THEN PRINT "IT'S MORE FUN WATCHING YOU FIND IT ";NA$: RETURN
405 IF V$ = "HELP" THEN PRINT "TRY A DIRECTION OR LOOKING AT SOMETHING": GOTO 388
406 IF V = 4 THEN N = 99: RETURN
407 IF V >20 AND V <27 THEN N = V:V = 3: RETURN
408 IF V < >6 THEN GOTO 417
409 HGR : PRINT TAB( 15)"INVENTORY ": PRINT :P = 20:Q = 50
410 FOR I = 1 TO 20: IF IT(I) = 99 THEN XDRAW I AT P,Q:P = P +40
411 IF P = 260 THEN P = 20:Q = Q +50
412 NEXT I
413 PRINT "ENTER 'LOOK' TO RETURN TO THE GAME"
414 INPUT V$: IF V$ = "" THEN V$ = "LOOK"
415 IF V$ < >"LOOK" THEN GOTO 413
416 GOTO 398
417 IF V <255 THEN RETURN
418 IF M = 0 THEN PRINT "THAT WORD DOESN'T RING ANY BELLS":M = 1: GOTO 388
419 IF M = 1 THEN PRINT "TRY TWO WORDS MAYBE":M = 2: GOTO 388
420 PRINT "I DON'T UNDERSTAND "V$:M = 0: GOTO 388
421 REM
422 GET A$:FX = FRE(0): PRINT A$;
423 IF A$ = CHR$(8) AND LEN(N$) >1 THEN N$ = LEFT$(N$,( LEN(N$) -1)): GOTO 422
424 IF A$ = CHR$(8) THEN N$ = "": GOTO 443
425 IF A$ = CHR$(13) THEN GOTO 428
426 N$ = N$ +A$
427 GOTO 422
428 REM
429 IF N$ = "BEEZLEBUB" THEN PRINT "YOUR SPELLING IS AS BAD AS MINE ";NA$:V = 5:N = 0: RETURN
430 IF N$ = "BEELZEBUB" THEN V = 5:N = 39: RETURN
431 L = LEN(N$)
432 FOR I = 1 TO L
433 IF MID$ (N$,I,1) = CHR$(32) THEN GOTO 442
434 NEXT
435 J$ = V$:FF = FRE(0): IF LEN(V$) >3 THEN J$ = LEFT$(V$,3)
436 K$ = N$:FF = FRE(0): IF LEN(N$) >4 THEN K$ = LEFT$(N$,4)
437 & J$,K$
438 V = PEEK(0):N = PEEK(1)
439 IF V = 255 THEN V = 0:N = 0: PRINT "I CAN'T ";V$;" SOMETHING ";NA$: GOTO 388
440 IF N = 255 THEN N = 0:V = 0: PRINT "I,M UNABLE TO ";V$;" A ";N$;" ";NA$: GOTO 388
441 RETURN
442 PRINT "ENTER TWO WORDS ONLY":V$ = "":N$ = "": GOTO 389
443 GET A$: PRINT A$;: IF A$ < > CHR$(8) THEN GOTO 425
444 GOTO 391
445 REM
446 IF IT(15) = 99 THEN GOTO 449
447 BC = BC +1: IF BC >30 THEN PRINT "YOUR BATTERIES ARE BECOMING VERY WEAK": IF BC = 35 THEN PRINT "YOUR BATTERIES HAVE BURNED OUT!!!!!!!": FOR I = 1 TO 1000: NEXT I:IT(5) = 98
448 IF IT(5) < >99 OR IT(6) < >99 THEN TEXT : HOME : PRINT "YOU HAVE LOST YOUR LIGHT AND WANDERED OFF BECOMING HOPELESSLY LOST. GAME OVER.": TEXT : NEW
449 IF DI < >0 THEN PRINT "TRY ANOTHER DIRECTION":DI = 0: RETURN
450 RETURN
451 REM
452 P = 20:Q = 135
453 FOR I = 1 TO 20
454 IF IT(I) = RO THEN XDRAW I AT P,Q:P = P +40
455 IF I = 16 AND IT(17) = RO THEN P = P -40
456 IF P >240 THEN P = 20:Q = 100
457 NEXT
458 RETURN
459 REM
460 REM
461 REM
462 REM
463 PRINT CHR$(4);"BLOAD WIZ2.SHAPES,A3192"
464 PRINT CHR$(4);"BLOAD BROOM2,A$8200"
465 PRINT CHR$(4);"BLOAD SCANNER,A$0803"
466 PRINT CHR$(4);"BLOAD WORD2,A$08A0"
467 POKE 232,120: POKE 233,12
468 POKE 1014,03: POKE 1015,08
469 RETURN

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZARD3.bas:

1 REM THISCOPYRIGHTED1981(C)SETOFP
2 TEXT : HOME
3 PRINT "YOU HAVE ALREADY FOUND ENOUGH OF THE STASHBUCK FORTUNE TO LAST A LIFETIME AND IF YOU WERE TO QUIT NOW IT WOULD BE VERY WISE."
4 PRINT "THIS PART OF THE VENTURE IS KNOWN AS THE 'MASTERS' SECTION AND THE RULES ARE DIFFERENT HERE. YOU WILL NOT BE ALLOWED"
5 PRINT "TO 'SAVE' YOUR STATUS AS BEFORE AND YOUR FLASHLIGHT WILL RUN OUT VERY SOON. IF YOU WANT TO GET TO THIS SECTION OF"
6 PRINT "THE GAME YOU CAN REPLY 'MASTER' TO THE QUESTION IS THIS A OLD OR NEW GAME? INSTEAD OF 'O' OR 'N'."
7 PRINT "THE REST OF THE STASHBUCK FORTUNE IS HERE BUT IT IS NOT EASY TO FIND AND YOUR MISTAKES MAY PROVE TO BE COSTLY BUT KEEP TRYING AND YOU MAY WELL"
8 PRINT "BECOME THE RICHEST PERSON IN THE WORLD (YOU WON'T CARE HOW MUCH GAS COSTS!)
9 PRINT "HIT 'RETURN' TO CONTINUE"
10 INPUT A$
11 GOSUB 425
12 DIM IT(20)
13 IT(0) = 999
14 DIM OB(20)
15 IT(1) = 1:IT(2) = 2:IT(3) = 4:IT(5) = 6.1
16 IT(7) = 8.1:IT(4) = 11:IT(8) = 12:IT(10) = 16.1
17 IT(11) = 99:IT(12) = 99:IT(9) = 99
18 CC = 3
19 REM
20 POKE 34,20: HOME :GAME = 3: POKE 34,0
21 HGR : SCALE= 1: ROT= 0
22 BC = 1
23 RO = 1:D = 1: GOSUB 195: GOSUB 416
24 IF IT(1) = 1 THEN PRINT "THERE IS A RING HERE"
25 GOSUB 349: GOSUB 201
26 IF DI = 1 THEN GOTO 29
27 GOSUB 406: IF N = 99 THEN GOTO 23
28 GOTO 25
29 RO = 2:D = 2: GOSUB 195: GOSUB 416
30 IF IT(2) = 2 THEN PRINT "I SEE A CUP"
31 GOSUB 349: GOSUB 201
32 ON DI GOTO 118,23,46,36
33 GOSUB 406: IF N = 99 THEN GOTO 29
34 GOTO 31
35 REM
36 RO = 3:
37 IF OB(1) = 0 THEN D = 3: GOSUB 195: GOTO 39
38 IF OB(1) = 1 THEN D = 4: GOSUB 195
39 GOSUB 416
40 GOSUB 349: GOSUB 201
41 IF DI = 4 AND OB(1) = 0 THEN PRINT "ITS TOO FAR ACROSS": GOTO 40
42 IF DI = 4 THEN GOTO 57
43 IF DI = 3 THEN GOTO 29
44 GOSUB 406: IF N = 99 THEN GOTO 36
45 GOTO 40
46 RO = 4
47 IF OB(2) = 0 THEN D = 6: GOSUB 195: PRINT "THERE IS A LARGE POOL OF OIL IN FRONT OF A LOCKED DOOR": GOTO 49
48 D = 7: GOSUB 195
49 IF IT(3) = 4 THEN PRINT "A SHARP TACK!!"
50 GOSUB 416
51 GOSUB 349: GOSUB 201
52 IF DI = 1 AND OB(2) = 0 THEN PRINT "THAT DOOR AIN'T BEEN OPENED YET": GOTO 51
53 IF DI = 4 THEN GOTO 29
54 IF DI = 1 THEN GOTO 88
55 GOSUB 406: IF N = 99 THEN GOTO 46
56 GOTO 51
57 RO = 5:D = 5: GOSUB 195: GOSUB 416
58 GOSUB 349: GOSUB 201
59 ON DI GOTO 60,60,36,62
60 GOSUB 406: IF N = 99 THEN GOTO 57
61 GOTO 58
62 RO = 6:D = 11: GOSUB 195: GOSUB 416
63 IF IT(5) = 6.1 THEN XDRAW 5 AT 80,70: PRINT "A PIECE OF CAKE!!!"
64 GOSUB 349: GOSUB 201
65 ON DI GOTO 68,66,57
66 GOSUB 406: IF N = 99 THEN GOTO 62
67 GOTO 64
68 D = 12:RO = 7: GOSUB 195: GOSUB 416
69 PRINT "WOW WHERE'D THAT TREE COME FROM"
70 GOSUB 349: GOSUB 201
71 IF DI = 2 THEN GOTO 62
72 IF DI = 6 THEN GOTO 75
73 GOSUB 406: IF N = 99 THEN GOTO 68
74 GOTO 70
75 RO = 8
76 IF OB(3) = 0 THEN D = 13: GOSUB 195: GOSUB 416: XDRAW 58 AT 150,30: PRINT "THERE IS A PICK STUCK IN THE WALL": GOTO 79
77 IF IT(6) < >98 AND IT(7) < >0 THEN D = 13: GOSUB 195:D = 14: GOSUB 197: PRINT "WATER IS GUSHING OUT OF THE HOLE WHERE THE PICK WAS AND IS FILLING THE ROOM": GOSUB 416: GOTO 85
78 D = 13: GOSUB 195: XDRAW 6 AT 150,50: GOSUB 416
79 GOSUB 349: GOSUB 201
80 IF DI = 5 AND OB(3) = 1 THEN PRINT "THE TORRENT OF RUSHING WATER STOPS YOU": GOTO 79
81 IF DI = 5 THEN GOTO 68
82 GOSUB 406: IF N = 99 THEN GOTO 75
83 IF OB(3) = 1 THEN OB(19) = OB(19) +1: IF OB(19) = 2 THEN PRINT "YOU JUST DROWNED!!!!": TEXT : NEW
84 GOTO 79
85 IF IT(5) = 99 THEN OB(4) = 1: GOTO 79
86 IF IT(5) = 8 THEN OB(4) = 1
87 GOTO 79
88 RO = 9
89 IF OB(5) = 0 THEN D = 16: GOSUB 195: GOSUB 416: PRINT "YOU JUST WALKED INTO A HUGE CAGE AND THE DOOR SLAMMED BEHIND YOU": GOTO 91
90 D = 15: GOSUB 195: GOSUB 416
91 GOSUB 349: GOSUB 201
92 IF DI = 1 AND OB(5) = 0 OR DI = 2 AND OB(5) = 0 THEN PRINT "YOU ARE TRAPPED IN THE CAGE": GOTO 91
93 ON DI GOTO 96,46
94 GOSUB 406: IF N = 99 THEN GOTO 88
95 GOTO 91
96 RO = 10
97 IF OB(6) = 0 THEN D = 21: GOSUB 195: GOSUB 416: PRINT "IT APPEARS TO BE A DEAD END": GOTO 99
98 D = 18: GOSUB 195: GOSUB 416
99 GOSUB 349: GOSUB 201
100 IF DI = 1 AND OB(6) = 0 THEN GOTO 103
101 IF DI = 2 THEN GOTO 88
102 IF DI = 1 THEN GOTO 105
103 GOSUB 406: IF N = 99 THEN GOTO 96
104 GOTO 99
105 RO = 11:D = 19: GOSUB 195: GOSUB 416
106 IF IT(4) = 11 THEN PRINT " A RUG IS LYING HERE"
107 GOSUB 349: GOSUB 201
108 ON DI GOTO 111,96
109 GOSUB 406: IF N = 99 THEN GOTO 105
110 GOTO 107
111 RO = 12:D = 20: GOSUB 195: GOSUB 416
112 PRINT "DEAD END!"
113 IF IT(8) = 12 THEN PRINT "A SHARP PENCIL"
114 GOSUB 349: GOSUB 201
115 IF DI = 2 THEN GOTO 105
116 GOSUB 406: IF N = 99 THEN GOTO 111
117 GOTO 114
118 RO = 13
119 IF OB(7) = 2 THEN D = 9: GOSUB 195: GOSUB 416: GOTO 122
120 IF OB(7) = 0 THEN D = 8: GOSUB 195: GOSUB 416: GOTO 122
121 IF OB(7) = 1 THEN GOSUB 129
122 GOSUB 349: GOSUB 201
123 IF DI = 6 AND OB(7) = 2 THEN GOTO 133
124 IF DI = 2 THEN GOTO 29
125 IF OB(7) > = 1 THEN GOTO 127
126 IF N = 52 THEN OB(7) = 1: PRINT "YOU HAVE DISTURBED ANOTHER MIMIC!!": GOTO 118
127 GOSUB 406: IF N = 99 THEN GOTO 118
128 GOTO 122
129 D = 10: GOSUB 195
130 DRAW 56 AT 123,94: DRAW 57 AT 129,94: DRAW 55 AT 122,105
131 PRINT "THE LOVELESS MEDUSA MIMIC WAITED FAITHFULLY FOR YOU"
132 GOSUB 416: RETURN
133 RO = 14:D = 22: GOSUB 195: GOSUB 416
134 PRINT "THERE ARE PASSAGES UP,NORTH AND WEST"
135 GOSUB 349: GOSUB 201
136 ON DI GOTO 154,137,137,139,118
137 GOSUB 406: IF N = 99 THEN GOTO 133
138 GOTO 135
139 RO = 15
140 IF OB(8) = 0 THEN D = 30: GOSUB 195: PRINT "DARN A DEAD END": GOSUB 416: GOTO 142
141 D = 31: GOSUB 195: GOSUB 416
142 GOSUB 349: GOSUB 201
143 IF DI = 1 AND OB(8) = 0 THEN GOTO 146
144 IF DI = 1 THEN GOTO 148
145 IF DI = 3 THEN GOTO 133
146 GOSUB 406: IF N = 99 THEN GOTO 139
147 GOTO 142
148 RO = 16:D = 32: GOSUB 195: GOSUB 416
149 IF IT(10) = 16.1 THEN ROT= 16: DRAW 10 AT 118,83: PRINT "I SEE A KEY": ROT= 0
150 GOSUB 349: GOSUB 201
151 IF DI = 2 THEN GOTO 139
152 GOSUB 406: IF N = 99 THEN GOTO 148
153 GOTO 150
154 RO = 17:D = 23: GOSUB 195: GOSUB 416
155 PRINT "YOU'LL NEVER GET ACROSS!!"
156 GOSUB 349: GOSUB 201
157 IF DI = 2 THEN GOTO 133
158 GOSUB 406: IF N = 99 THEN GOTO 154
159 GOTO 156
160 RO = 18:D = 25: GOSUB 195: GOSUB 416
161 PRINT "THERE IS A LARGE FISSURE TO THE SOUTH"
162 GOSUB 349: GOSUB 201
163 IF DI = 1 THEN GOTO 167
164 IF DI = 2 THEN PRINT "YOU CAN'T CROSS THE FISSURE"
165 GOSUB 406: IF N = 99 THEN GOTO 160
166 GOTO 162
167 RO = 19:D = 24: GOSUB 195: GOSUB 416
168 PRINT "A GIANT SNAKE!!!"
169 IF OB(9) = 1 THEN PRINT "THAT IS IN A HYPNOTIC SPELL"
170 GOSUB 349: GOSUB 201
171 IF DI = 1 AND OB(9) = 0 THEN PRINT "THE SNAKE WON'T LET YOU BY": GOTO 170
172 IF DI = 1 THEN GOTO 176
173 IF DI = 2 THEN GOTO 160
174 GOSUB 406: IF N = 99 THEN GOTO 167
175 GOTO 170
176 RO = 20
177 IF OB(10) = 0 THEN D = 26: GOSUB 195: PRINT "THERE IS A LOCKED DOOR HERE": GOSUB 416: GOTO 179
178 D = 27: GOSUB 195: GOSUB 416: GOTO 179
179 GOSUB 349: GOSUB 201
180 IF DI = 1 AND OB(10) = 0 THEN PRINT "IT'S LOCKED": GOTO 179
181 ON DI GOTO 184,167
182 GOSUB 406: IF N = 99 THEN GOTO 176
183 GOTO 179
184 RO = 21:D = 29: GOSUB 195
185 PRINT "THERE IS THE REST OF THE STASHBUCK TREASURE BUT THERE IS A VERY SKITTISH LAND SQUID GUARDING IT"
186 GOSUB 416
187 GOSUB 349: GOSUB 201
188 IF DI = 2 THEN GOTO 176
189 GOSUB 406: IF N = 99 THEN GOTO 184
190 GOTO 187
191 RO = 22:D = 28: GOSUB 195
192 PRINT "THATS THE FIRST TIME THAT OLD SQUID HAS LAUGHED IN 50 YEARS. AS A REWARD HE LET YOU GET OUT WITH ALL THE TREASURE. CONGRATULATIONS 'MASTER' VENTURER";: GET A$
193 TEXT : NEW
194 GOTO 20
195 REM
196 HGR : HCOLOR= 3: HPLOT 0,0 TO 255,0 TO 255,159 TO 0,159 TO 0,0
197 POKE 05,112: POKE 06,130
198 POKE 07,D
199 CALL 33280
200 RETURN
201 REM
202 REM
203 ON V GOTO 206,221,230,237,243,204,304,366,247,252,258,365,261,265,268,273,278,282,284,286,204,204,204,204,204,204,288,292,299,308,312,316,321,327,330,335,339,344
204 IF RO < >29 THEN PRINT "I SORT OF UNDERSTAND WHAT YOU MEAN BUT YOU BETTER TRY SOMETHING ELSE"
205 RETURN
206 REM
207 REM
208 DI = 0
209 IF CC = >5 THEN PRINT "YOU CAN'T CARRY ANYMORE ";NA$: RETURN
210 IF N = 56 THEN PRINT "I THINK NOT": RETURN
211 IF N >20 THEN PRINT "HOLY COW I CAN'T GET THAT": RETURN
212 IF N = 5 AND RO = 6 AND IT(5) = 6.1 THEN XDRAW 5 AT 80,70:IT(5) = 99:CC = CC +1: RETURN
213 IF N = 7 AND RO = 8 AND IT(7) = 8.1 THEN XDRAW 58 AT 150,30:CC = CC +1:IT(7) = 99:N = 99:OB(3) = 1: RETURN
214 IF N = 6 AND IT(6) = 98 THEN PRINT "LEAVE IT ALONE CHAUNCEY": RETURN
215 IF N = 10 AND IT(10) = 16.1 AND RO = 16 THEN N = 99:IT(10) = 99:CC = CC +1: RETURN
216 IF IT(N) = RO THEN IT(N) = 99:N = 99:V = 0: GOTO 219
217 IF IT(N) = 99 THEN PRINT "YOU ARE ALREADY CARRYING IT": RETURN
218 PRINT "I DON,T SEE IT": RETURN
219 CC = CC +1
220 RETURN
221 REM DROP
222 DI = 0
223 IF N >20 THEN PRINT "YOU CAN'T EVEN GET THAT MUCH LESS DROP IT ";NA$: RETURN
224 IF IT(N) < >99 THEN PRINT "YOU DON,T SEEM TO BE CARRYING IT": RETURN
225 IF N = 9 AND RO = 4 AND OB(2) = 0 THEN PRINT "THE KNIFE STRIKES THE ROCKS CAUSING SPARKS TO IGNITE THE OIL AND BURN DOWN THE DOOR":OB(2) = 1:IT(9) = 4:CC = CC -1:N = 99: RETURN
226 IF RO = 8 AND OB(3) = 1 AND N = 6 THEN CC = CC -1:OB(3) = 2:IT(6) = 98:N = 99: RETURN
227 IT(N) = RO:CC = CC -1
228 N = 99
229 RETURN
230 REM GO
231 IF N >20 AND N <27 THEN DI = N -20: RETURN
232 DI = 0
233 IF M = 0 THEN PRINT "TRY A DIRECTION...MAYBE":M = 1: RETURN
234 IF M = 1 THEN PRINT "YOU BETTER TRY SOMETHING ELSE":M = 2: RETURN
235 PRINT "SORRY BUT THATS JUST NOT POSSIBLE":M = 0: RETURN
236 RETURN
237 REM LOOK
238 DI = 0
239 IF N >20 THEN GOTO 241
240 IF IT(N) < >99 THEN PRINT "YOU DON'T HAVE IT ";NA$: RETURN
241 REM
242 PRINT "I SEE NOTHING OUT OF THE ORDINARY ";NA$: RETURN
243 REM SAY
244 DI = 0
245 IF N = 55 AND RO = 3 THEN OB(1) = 1:N = 99: RETURN
246 PRINT "NOTHING HAPPENS ";NA$: RETURN
247 REM OPEN
248 DI = 0: IF N = 255 THEN PRINT "OPEN WHAT?": RETURN
249 IF RO = 4 THEN PRINT "YOU HAVE NO KEY": RETURN
250 IF RO = 20 THEN PRINT "IT WILL OPEN UPON BEING UNLOCKED": RETURN
251 PRINT "I DON'T THINK I CAN": RETURN
252 REM UNLOCK
253 DI = 0: IF N = 255 THEN PRINT "UNLOCK WHAT???": RETURN
254 IF RO = 4 THEN PRINT "YOU HAVE NO KEY": RETURN
255 IF RO = 20 AND IT(10) < >99 THEN PRINT "WITH WHAT....": RETURN
256 IF RO = 20 AND OB(10) = 0 THEN OB(10) = 1:N = 99: PRINT "O.K.": RETURN
257 PRINT "YOU'VE GOT ME A LITTLE CONFUSED ";NA$: RETURN
258 REM LOCK
259 DI = 0
260 PRINT "LET US QUIT TESTING THE PROGRAM AND GET ON WITH THE GAME ";NA$: RETURN
261 REM
262 DI = 0
263 IF N = 1 THEN GOTO 237
264 GOTO 204
265 REM MOVE
266 DI = 0
267 PRINT "IT'S TOO HEAVY ";NA$: RETURN
268 REM
269 DI = 0
270 IF IT(7) < >99 THEN PRINT "YOU DON'T HAVE A PICK";NA$:: RETURN
271 IF RO = 10 THEN OB(6) = 1:N = 99: PRINT "PRETTY SMART! NOW HEAD NORTH";NA$: RETURN
272 PRINT "DIGGING REVEALED NOTHING ";NA$: RETURN
273 DI = 0: REM RUB
274 IF IT(1) < >99 THEN GOTO 277
275 IF RO = 19 AND OB(9) = 0 THEN OB(9) = 1: PRINT "YOU'VE JUST PLACED A HYPNOTIC SPELL ON THE SNAKE.": RETURN
276 PRINT "GOSH.....NOTHING HAPPEND": RETURN
277 PRINT "HMMMM.....NOTHING HAPPEND": RETURN
278 REM WAVE
279 DI = 0
280 IF N >20 THEN PRINT "THATS ABSURD": RETURN
281 PRINT "NOTHING HAPPEND ";NA$: RETURN
282 DI = 0
283 PRINT "USE SOME FINESSE INSTEAD ";NA$: RETURN
284 DI = 0: REM
285 PRINT "ALL RIGHTY...GAME OVER": TEXT : NEW
286 DI = 0: REM
287 PRINT "YOU KNOW THATS A NO NO HERE": RETURN
288 REM
289 DI = 0
290 PRINT "WHAT???"
291 RETURN
292 REM DRINK
293 DI = 0
294 IF RO < >8 OR OB(3) < >1 THEN GOTO 297
295 PRINT "THATS REAL CUTE FROM A DROWNING PERSON"
296 WA = 1: PRINT "THANKS THAT TASTES GOOD ";NA$: RETURN
297 IF N = 56 THEN PRINT "WHAT ARE YOU ON??": RETURN
298 PRINT "NO THANK YOU": RETURN
299 REM
300 DI = 0
301 IF N < >41 THEN PRINT "RULE 3.2.1 STATES THAT YOU MAY ONLY PUNCHOUT BOOGEYMEN AND THE NEIGHBORS DOG": RETURN
302 IF RO < >66 OR BO < >0 THEN PRINT "WHAT BOOGEYMAN?": RETURN
303 RETURN
304 REM KILL
305 DI = 0
306 IF N = 41 THEN PRINT "YOU CAN'T KILL THE BOOGEYMAN": RETURN
307 PRINT "NO WAY": RETURN
308 REM IGNITE
309 DI = 0
310 IF N = 56 THEN PRINT "HOW??": RETURN
311 PRINT "KEEP TRYING": RETURN
312 REM JUMP
313 DI = 0
314 IF RO = 3 THEN PRINT "ITS TOO FAR ACROSS": RETURN
315 PRINT "NOPE": RETURN
316 REM FLY
317 DI = 0
318 IF IT(4) < >99 THEN PRINT "WITH WHAT?": RETURN
319 IF RO < >18 THEN POP : PRINT "YOUR THE BOSS": GOTO 160
320 IF RO = 18 THEN PRINT "HERE WE GO!!!": POP : GOTO 36
321 REM EAT
322 DI = 0
323 IF N = 5 AND IT(5) = 99 AND OB(4) = 1 THEN PRINT "ALL THAT WATER MADE YOUR CAKE SOGGY AND IT LOST ITS ORIGINAL PUNCH":IT(5) = 98:CC = CC -1: RETURN
324 IF N = 5 AND IT(5) = 99 AND OB(5) = 0 AND RO = 9 THEN OB(5) = 1:IT(5) = 98:CC = CC -1:N = 99: PRINT "YOU GREW VERY LARGE AND BURST THE CAGE OPEN THEN RETURNED TO NORMAL": RETURN
325 IF N = 5 AND IT(5) = 99 THEN PRINT "YOU SUDDENLY GREW VERY LARGE THEN YOU RETURNED TO NORMAL":IT(5) = 98: RETURN
326 PRINT "I,M NOT HUNGRY": RETURN
327 REM USE
328 DI = 0
329 PRINT "NOTHING HAPPENS": RETURN
330 REM CUT
331 DI = 0
332 IF IT(9) < >99 THEN PRINT "WITH WHAT???": RETURN
333 IF RO = 7 AND IT(6) = 0 THEN PRINT "HEY ITS A RUBBER TREE AND NOW THERE IS A BLOB OF RUBBER ON THE GROUND":IT(6) = 7:N = 99: RETURN
334 PRINT "NOTHING HAPPENS": RETURN
335 REM KISS
336 DI = 0
337 IF RO = 13 AND OB(7) = 1 THEN OB(7) = 2:N = 99: PRINT "YOUR SO SWEET": RETURN
338 PRINT "I SEE NO TOADS": RETURN
339 REM DRAW
340 DI = 0
341 IF IT(8) < >99 THEN PRINT "WITH WHAT??": RETURN
342 IF OB(8) = 0 AND RO = 15 THEN OB(8) = 1:N = 99: PRINT "YOU ARE A GENIUS!!!--BUT A LOUSY ARTIST": RETURN
343 PRINT "NO GRAFFITO ALLOWED": RETURN
344 REM GOOSE
345 DI = 0
346 IF RO < >21 THEN GOTO 348
347 GOTO 191
348 PRINT "YOU COULD LOOSE A DIGIT TRYING THAT": RETURN
349 FX = FRE(0)
350 V = 0:N = 0:V$ = "":N$ = "": PRINT "ENTER COMMAND--> ";
351 IF PEEK(214) < >128 THEN NEW
352 GET A$:FX = FRE(0): PRINT A$;
353 IF A$ = CHR$(8) AND LEN(V$) >1 THEN V$ = LEFT$(V$,( LEN(V$) -1)): GOTO 352
354 IF A$ = CHR$(8) THEN V$ = "": GOTO 352
355 IF A$ = CHR$(13) THEN GOTO 359
356 IF A$ = CHR$(32) THEN GOTO 382
357 V$ = V$ +A$
358 GOTO 351
359 REM
360 IF V$ = "" THEN POKE -16303,0: GET A$: PRINT A$: POKE -16304,0: GOTO 349
361 J$ = V$: IF LEN(V$) >3 THEN J$ = LEFT$(V$,3):FF = FRE(0)
362 K$ = N$: & J$,K$
363 V = PEEK(0):N = PEEK(1)
364 IF V = 12 THEN RETURN
365 IF V = 12 THEN PRINT "IT'S MORE FUN WATCHING YOU FIND IT ";NA$: RETURN
366 IF V$ = "HELP" THEN PRINT "TRY A DIRECTION OR LOOKING AT SOMETHING": GOTO 349
367 IF V = 4 THEN N = 99: RETURN
368 IF V >20 AND V <27 THEN N = V:V = 3: RETURN
369 IF V < >6 THEN GOTO 378
370 HGR : PRINT TAB( 15)"INVENTORY ": PRINT :P = 20:Q = 50
371 FOR I = 1 TO 20: IF IT(I) = 99 THEN XDRAW I AT P,Q:P = P +40
372 IF P = 260 THEN P = 20:Q = Q +50
373 NEXT I
374 PRINT "ENTER 'LOOK' TO RETURN TO THE GAME"
375 INPUT V$: IF V$ = "" THEN V$ = "LOOK"
376 IF V$ < >"LOOK" THEN GOTO 374
377 GOTO 359
378 IF V <255 THEN RETURN
379 IF M = 0 THEN PRINT "THAT WORD DOESN'T RING ANY BELLS":M = 1: GOTO 349
380 IF M = 1 THEN PRINT "TRY TWO WORDS MAYBE":M = 2: GOTO 349
381 PRINT "I DON'T UNDERSTAND "V$:M = 0: GOTO 349
382 REM
383 GET A$:FX = FRE(0): PRINT A$;
384 IF A$ = CHR$(8) AND LEN(N$) >1 THEN N$ = LEFT$(N$,( LEN(N$) -1)): GOTO 383
385 IF A$ = CHR$(8) THEN N$ = "": GOTO 404
386 IF A$ = CHR$(13) THEN GOTO 389
387 N$ = N$ +A$
388 GOTO 383
389 REM
390 IF N$ = "BEEZLEBUB" THEN PRINT "YOUR SPELLING IS AS BAD AS MINE ";NA$:V = 5:N = 0: RETURN
391 IF N$ = "BEELZEBUB" THEN V = 5:N = 39: RETURN
392 L = LEN(N$)
393 FOR I = 1 TO L
394 IF MID$ (N$,I,1) = CHR$(32) THEN GOTO 403
395 NEXT
396 J$ = V$:FF = FRE(0): IF LEN(V$) >3 THEN J$ = LEFT$(V$,3)
397 K$ = N$:FF = FRE(0): IF LEN(N$) >4 THEN K$ = LEFT$(N$,4)
398 & J$,K$
399 V = PEEK(0):N = PEEK(1)
400 IF V = 255 THEN V = 0:N = 0: PRINT "I CAN'T ";V$;" SOMETHING ";NA$: GOTO 349
401 IF N = 255 THEN N = 0:V = 0: PRINT "I,M UNABLE TO ";V$;" A ";N$;" ";NA$: GOTO 349
402 RETURN
403 PRINT "ENTER TWO WORDS ONLY":V$ = "":N$ = "": GOTO 350
404 GET A$: PRINT A$;: IF A$ < > CHR$(8) THEN GOTO 386
405 GOTO 352
406 REM
407 BC = BC +1: IF BC >35 THEN PRINT "YOUR BATTERIES ARE BECOMING VERY WEAK": IF BC = 40 THEN PRINT "YOUR BATTERIES HAVE BURNED OUT!!!!!!!": FOR I = 1 TO 1000: NEXT I:IT(12) = 98
408 IF IT(11) < >99 OR IT(12) < >99 THEN TEXT : HOME : PRINT "YOU HAVE LOST YOUR LIGHT AND WANDERED OFF BECOMING HOPELESSLY LOST. GAME OVER.": GOTO 411
409 IF DI < >0 THEN PRINT "TRY ANOTHER DIRECTION":DI = 0: RETURN
410 RETURN
411 FOR I = 1 TO 15:OB(I) = 0:IT(I) = 0: NEXT I:BC = 1
412 PRINT "DO YOU WANT TO PLAY AGAIN? Y/N"
413 GET A$: IF A$ = "Y" THEN GOTO 15
414 IF A$ < >"N" THEN GOTO 412
415 TEXT : NEW
416 IF PEEK(214) < >128 THEN NEW
417 P = 20:Q = 138
418 FOR I = 1 TO 15
419 IF IT(I) = RO THEN XDRAW I AT P,Q:P = P +40
420 IF P >240 THEN P = 20:Q = 100
421 NEXT
422 RETURN
423 REM
424 REM
425 REM
426 REM
427 PRINT CHR$(4);"BLOAD WIZ3.SHAPES,A3192"
428 PRINT CHR$(4);"BLOAD BROOM3,A$8200"
429 PRINT CHR$(4);"BLOAD SCANNER,A$0803"
430 PRINT CHR$(4);"BLOAD WORD3,A$08A0"
431 POKE 232,120: POKE 233,12
432 POKE 1014,03: POKE 1015,08
433 RETURN

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WIZDIM.bas:

1 REM THISCOPYRIGHTED1981(C)SETOFP
2 GAME = 1:RL = 0
3 TEXT : HOME : PRINT "DO YOU WANT INSTRUCTIONS? Y/N."
4 INPUT A$
5 IF A$ = "Y" THEN GOTO 33
6 IF A$ < >"N" THEN GOTO 3
7 DIM IT(20):IT(3) = 3.1:IT(4) = 4.1:IT(5) = 14.1:IT(6) = 4:IT(9) = 15.1:IT(2) = 6.1:IT(1) = 1.2:IT(8) = 7.1:IT(7) = 29
8 IT(10) = 32.1:IT(12) = 12.1:IT(11) = 11.1:IT(13) = 52.1:IT(14) = 55.1:IT(15) = 20.1:IT(16) = 66
9 IT(17) = 67.1
10 POKE 34,20: HOME
11 PRINT CHR$(4);"BLOAD WIZ.SHAPES,A3192"
12 POKE 232,120: POKE 233,12: REM ADDRESS=0C78
13 TEXT : HOME
14 PRINT "HELLO, WHAT IS YOUR NAME?"
15 INPUT NA$: IF LEN(NA$) >10 THEN NA$ = LEFT$(NA$,10)
16 IF LEN(NA$) <2 THEN PRINT "AW COM'ON WHAT KINDA NAME IS THAT": GOTO 14
17 HOME : PRINT "IS THIS A OLD OR NEW GAME? ENTER O OR N"
18 INPUT RE$
19 IF RE$ = "MASTER" THEN GAME = 3: GOTO 22
20 IF RE$ < >"O" AND RE$ < >"N" THEN GOTO 17
21 IF RE$ = "O" THEN GOSUB 28
22 PRINT CHR$(4);"BLOAD CHAIN,A520"
23 IF GAME = 1 THEN CALL 520"WIZARD1"
24 IF GAME = 2 THEN CALL 520"WIZARD2"
25 IF GAME = 3 THEN PRINT CHR$(4);"RUN WIZARD3"
26 PRINT "YOU BETTER REBOOT AND START OVER"
27 END
28 PRINT CHR$(4);"OPEN WIZ.SAVE"
29 PRINT CHR$(4);"READ WIZ.SAVE"
30 INPUT GAME
31 PRINT CHR$(4);"CLOSE WIZ.SAVE"
32 RETURN
33 REM INSTRUCTIONS
34 SCALE= 1: ROT= 0
35 PRINT CHR$(4);"BLOAD RA.SHAPES,A3192"
36 POKE 232,120: POKE 233,12
37 PRINT "YOU HAVE JUST INHERITED YOUR UNCLE STASHBUCKS MANSION."
38 PRINT "YOUR UNCLE WAS VERY ECCENTRIC AND LONG KNOWN TO HAVE A FASCINATION FOR THE OCCULT AND MAINLY LUCIFER HIMSELF."
39 PRINT "YOUR UNCLE LEARNED THE WAYS OF BLACK MAGIC AND OFTEN WOULD BECKON FORTH THE CREATURES OF HADES ONLY TO END UP RELINQUISHING HIS SOUL TO THIER DASTARDLY DEMANDS AND EVENTUALLY HIS LIFE."
40 PRINT "IT IS RUMORED THAT YOUR UNCLE TRIED TO FIGHT BACK WITH THE HELP OF A MAGIC LAMP HE HAD BUT THAT IT WAS TOO LATE."
41 PRINT "ON THE NIGHT YOUR UNCLE DIED LUCIFER SENT FORTH A DEVIL RAIDER AND STOLE MOST OF THE TREASURE OF STASHBUCK MANSION."
42 PRINT TAB( 15)"*** C/R TO CONTINUE ***"
43 PRINT : PRINT : PRINT : PRINT
44 GET A$
45 HGR
46 HPLOT 270,100 TO 250,100 TO 250,130 TO 270,130 TO 270,100
47 : HOME : FOR I = 1 TO 81 STEP 40: XDRAW 1 AT 108 +I,59: XDRAW 5 AT 60 +I,100: XDRAW 6 AT 80 +I,73: XDRAW 2 AT 60 +I,95: XDRAW 1 AT 108 +I,59: XDRAW 5 AT 60 +I,100: XDRAW 6 AT 80 +I,73: XDRAW 2 AT 60 +I,95: XDRAW 1 AT 128 +I,59: XDRAW 5 AT 80 +I,100: XDRAW 6 AT 100 +I,73: XDRAW 3 AT 80 +I,95
48 XDRAW 1 AT 128 +I,59: XDRAW 5 AT 80 +I,100: XDRAW 6 AT 100 +I,73: XDRAW 3 AT 80 +I,95: NEXT
49 XDRAW 1 AT 118 +I,59: XDRAW 5 AT 70 +I,95: XDRAW 6 AT 90 +I,73: XDRAW 3 AT 70 +I,90: XDRAW 1 AT 118 +I,59: ROT= 12: XDRAW 1 AT 128 +I,59: XDRAW 1 AT 128 +I,59: ROT= 0: XDRAW 1 AT 118 +I,59: FOR I = 1 TO 100
50 TEXT : HOME
51 PRINT "THE TREASURE WAS THEN BURIED DEEP IN THE MANSION."
52 PRINT "THE ONLY WAY YOU WILL EVER BE ABLE TO ENJOY YOUR INHERITANCE IS BY RIDDING STASHBUCK MANOR OF THE CREATURES AND RECOVERING YOUR TREASURE."
53 PRINT "YOU MUST DIRECT THE COMPUTER WITH TWO WORD COMMANDS SUCH AS 'GO NORTH' OR 'OPEN DOOR' AND 'LOOK ROOM','GET KNIFE' 'PUNCHOUT BOOGEYMAN', ETC.ETC."
54 PRINT "TO SEE WHAT ITEMS YOU ARE CARRYING ENTER 'I' OR 'INV' AND IF YOU ARE CARRYING ANYTHING AT ALL IT WILL APPEAR ON THE SCREEN."
55 PRINT "TO MOVE ABOUT YOU CAN ENTER DIRECTIONS IN THE FORM OF N,S,E,W,U,D."
56 PRINT "IF YOU WANT TO END A GAME ENTER 'QUIT' AND IF YOU WANT TO SAVE THE STATUS OF A GAME ENTER 'SAVE'."
57 PRINT "THE COMMAND 'RESTORE' WILL RESTORE A PREVIOUSLY SAVED GAME."
58 PRINT "ALL REFERENCES TO 'LAMP' ARE FOR THE MAGIC LAMP ONLY"
59 PRINT TAB( 15)"*** C/R TO CONTINUE ***";
60 GET A$: PRINT "": HOME
61 PRINT "IF YOU WANT TO SEE WHAT COMMANDS YOU HAVE ENTERED HIT C/R AND THEN HIT C/R TO RETURN TO THE SCREEN
62 PRINT "WHEN YOU DO A 'INV' YOU MAY RETURN TO THE GAME BY ENTERING A C/R OR 'LOOK'"
63 PRINT "IF YOU HAVE EXAMINED AN OBJECT AND WISH TO RETURN TO THE SCREEN ENTER 'LOOK' OR 'LOOK ROOM'."
64 PRINT "SOMETIMES JUST ENTERING A DIRECTION IS NOT ENOUGH, YOU SHOULD ENTER GO CRACK OR GO HOLE INSTEAD."
65 PRINT "THE ONLY WAY TO GET INTO THE STASHBUCK MANSIONS COURTYARD IS THRU THE CRACK."
66 PRINT "ONLY THE FIRST FOUR LETTERS OF THE NOUN YOU ENTER ARE LOOKED AT AND THE FIRST THREE LETTERS OF THE VERB."
67 PRINT "GOOD LUCK!"
68 PRINT TAB( 15)"*** C/R TO CONTINUE ***"
69 GET A$: PRINT ""
70 GOTO 7

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WORD2.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 01 04 C1 CE C1 02 63 C1 D2 CF D5 01 08 C1 D3 D3 ..ANA.cA ROU..ASS
$000010 01 07 C1 D4 D4 02 11 C2 C1 D4 02 06 C2 C1 D4 D4 ..ATT..B AT..BATT
$000020 02 35 C2 C5 C5 CC 02 20 C2 CF CF 02 29 C2 CF CF .5BEEL. BOO.)BOO
$000030 C7 02 0E C2 CF D4 D4 02 34 C2 CF D8 01 12 C2 D2 G..BOTT. 4BOX..BR
$000040 C5 02 2E C2 D2 C9 C4 02 0F C2 D5 C7 02 10 C3 C1 E..BRID. .BUG..CA
$000050 C7 C5 01 01 C3 C1 D0 01 01 C3 C1 D4 02 34 C3 C8 GE..CAP. .CAT.4CH
$000060 C5 D3 01 03 C3 CC C9 01 0B C3 CC CF 01 08 C3 CC ES..CLI. .CLO..CL
$000070 D5 02 32 C3 CF CC D5 02 1F C3 D2 C1 C3 02 1A C4 U.2COLU. .CRAC..D
$000080 01 1A C4 02 02 C4 C1 C7 C7 02 35 C4 C5 D6 C9 02 ..D..DAG G.5DEVI.
$000090 09 C4 C9 C1 D2 01 0F C4 C9 C7 02 21 C4 CF CF D2 .DIAR..D IG.!DOOR
$0000A0 01 1A C4 CF D7 02 1A C4 CF D7 CE 01 1C C4 D2 C9 ..DOW..D OWN..DRI
$0000B0 01 02 C4 D2 CF 02 17 C5 01 17 C5 01 17 C5 C1 D3 ..DRO..E ..E..EAS
$0000C0 02 17 C5 C1 D3 D4 01 03 C5 CE D4 02 21 C5 CE D4 ..EAST.. ENT.!ENT
$0000D0 D2 02 63 C5 D6 C5 D2 01 04 C5 D8 C1 02 04 C5 D9 R.cEVER. .EXA..EY
$0000E0 C5 C7 01 07 C6 C9 C7 01 0C C6 C9 CE 02 0F C6 C9 EG..FIG. .FIN..FI
$0000F0 D2 C5 02 05 C6 CC C1 D3 02 0F C6 CC D9 01 03 C6 RE..FLAS ..FLY..F
$000100 CF CC 02 30 C7 C1 CD C5 01 01 C7 C5 D4 02 04 C7 OL.0GAME ..GET..G
$000110 CC C1 D3 01 03 C7 CF 01 01 C7 D2 C1 02 32 C7 D2 LAS..GO. .GRA.2GR
$000120 C1 CE 01 08 C8 C5 CC 02 0C C8 C9 CE D4 02 1F C8 AN..HEL. .HINT..H
$000130 CF CC C5 01 06 C9 01 06 C9 CE D6 02 0E CA D5 C7 OLE..I.. INV..JUG
$000140 02 03 CB C5 D9 01 07 CB C9 CC 02 02 CB CE C9 C6 ..KEY..K IL..KNIF
$000150 02 28 CB D9 C2 CF 02 2D CC C1 CB C5 02 08 CC C1 .(KYBO.- LAKE..LA
$000160 CD D0 02 2A CC C5 C4 C7 02 01 CC C5 D4 D4 01 0E MP.*LEDG ..LETT..
$000170 CC C9 C6 02 05 CC C9 C7 C8 01 0B CC CF C3 02 25 LIF..LIG H..LOC.%
$000180 CC CF C7 01 04 CC CF CF 02 35 CC D5 C3 C9 02 0B LOG..LOO .5LUCI..
$000190 CD C5 D3 D3 01 0E CD CF D6 02 15 CE 01 15 CE 01 MESS..MO V..N..N.
$0001A0 15 CE CF D2 02 15 CE CF D2 D4 02 0A CE CF D4 C5 .NOR..NO RT..NOTE
$0001B0 01 09 CF D0 C5 02 1F D0 C1 D3 D3 01 01 D0 C9 C3 ..OPE..P ASS..PIC
$0001C0 02 32 D0 C9 CC CC 02 2D D0 CF CF CC 02 01 D0 CF .2PILL.- POOL..PO
$0001D0 D3 D4 01 1B D0 CF D5 01 1B D0 CF D5 01 1D D0 D5 ST..POU. .POU..PU
$0001E0 CE 01 02 D0 D5 D4 01 13 D1 D5 C9 02 14 D1 D5 C9 N..PUT.. QUI..QUI
$0001F0 D4 01 04 D2 C5 C1 01 02 D2 C5 CC 01 14 D2 C5 D3 T..REA.. REL..RES
$000200 02 2B D2 CF C3 CB 02 0D D2 CF C4 02 63 D2 CF CF .+ROCK.. ROD.cROO
$000210 CD 01 10 D2 D5 C2 02 16 D3 01 16 D3 01 13 D3 C1 M..RUB.. S..S..SA
$000220 D6 02 14 D3 C1 D6 C5 01 05 D3 C1 D9 02 2C D3 C5 V..SAVE. .SAY.,SE
$000230 D2 D0 02 1E D3 C5 D3 C1 02 07 D3 C8 CF D6 01 05 RP..SESA ..SHOV..
$000240 D3 C9 CE 01 12 D3 CD C1 02 2C D3 CE C1 CB 01 16 SIN..SMA .,SNAK..
$000250 D3 CF D5 02 16 D3 CF D5 D4 02 07 D3 D0 C1 C4 01 SOU..SOU T..SPAD.
$000260 05 D3 D0 C5 01 1B D3 D0 C9 02 0D D3 D4 C1 C6 02 .SPE..SP I..STAF.
$000270 24 D3 D4 C1 C9 02 24 D3 D4 C5 D0 02 2B D3 D4 CF $STAI.$S TEP.+STO
$000280 CE 01 04 D3 D4 D5 02 25 D3 D4 D5 CD 02 02 D3 D7 N..STU.% STUM..SW
$000290 CF D2 01 01 D4 C1 CB 01 1C D4 C1 D3 01 02 D4 C8 OR..TAK. .TAS..TH
$0002A0 D2 02 33 D4 CF CE D4 01 02 D4 CF D3 01 03 D4 D2 R.3TONT. .TOS..TR
$0002B0 C1 02 26 D4 D2 C5 C5 02 19 D5 01 19 D5 01 0A D5 A.&TREE. .U..U..U
$0002C0 CE CC 02 19 D5 D0 01 19 D5 D0 02 18 D7 01 18 D7 NL..UP.. UP..W..W
$0002D0 01 03 D7 C1 CC 02 0D D7 C1 CE C4 01 07 D7 C1 D3 ..WAL..W AND..WAS
$0002E0 01 1B D7 C1 D4 02 27 D7 C1 D4 C5 01 11 D7 C1 D6 ..WAT.'W ATE..WAV
$0002F0 01 0D D7 C5 C1 01 18 D7 C5 D3 02 18 D7 C5 D3 D4 ..WEA..W ES..WEST
$000300 02 22 D7 C9 CE C4 02 2C D7 CF D2 CD 01 05 D9 C5 ."WIND., WORM..YE
$000310 CC 00 .. .. .. .. .. .. .. .. .. .. .. .. .. .. L.
** END **

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WORD3.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 02 36 C1 C2 D2 C1 01 04 C1 CE C1 02 63 C1 D2 CF .6ABRA.. ANA.cARO
$000010 D5 01 08 C1 D3 D3 01 07 C1 D4 D4 02 0C C2 C1 D4 U..ASS.. ATT..BAT
$000020 D4 02 35 C2 C5 C5 CC 02 06 C2 CC CF C2 02 20 C2 T.5BEEL. .BLOB. B
$000030 CF CF 02 29 C2 CF CF C7 02 34 C2 CF D8 01 12 C2 OO.)BOOG .4BOX..B
$000040 D2 C5 02 2E C2 D2 C9 C4 02 05 C3 C1 CB C5 01 01 RE..BRID ..CAKE..
$000050 C3 C1 D0 02 04 C3 C1 D2 D0 01 01 C3 C1 D4 02 34 CAP..CAR P..CAT.4
$000060 C3 C8 C5 D3 01 23 C3 C8 CF 01 03 C3 CC C9 01 0B CHES.#CH O..CLI..
$000070 C3 CC CF 01 08 C3 CC D5 02 32 C3 CF CC D5 02 1F CLO..CLU .2COLU..
$000080 C3 D2 C1 C3 02 02 C3 D5 D0 01 23 C3 D5 D4 02 1A CRAC..CU P.#CUT..
$000090 C4 01 1A C4 02 09 C4 C1 C7 C7 02 35 C4 C5 D6 C9 D..D..DA GG.5DEVI
$0000A0 01 0F C4 C9 C7 02 21 C4 CF CF D2 01 1A C4 CF D7 ..DIG.!D OOR..DOW
$0000B0 02 1A C4 CF D7 CE 01 25 C4 D2 C1 01 1C C4 D2 C9 ..DOWN.% DRA..DRI
$0000C0 01 02 C4 D2 CF 02 17 C5 01 17 C5 01 17 C5 C1 D3 ..DRO..E ..E..EAS
$0000D0 02 17 C5 C1 D3 D4 01 21 C5 C1 D4 01 03 C5 CE D4 ..EAST.! EAT..ENT
$0000E0 02 21 C5 CE D4 D2 02 63 C5 D6 C5 D2 01 04 C5 D8 .!ENTR.c EVER..EX
$0000F0 C1 01 07 C6 C9 C7 01 0C C6 C9 CE 02 0B C6 CC C1 A..FIG.. FIN..FLA
$000100 D3 01 20 C6 CC D9 01 03 C6 CF CC 02 30 C7 C1 CD S. FLY.. FOL.0GAM
$000110 C5 01 01 C7 C5 D4 01 03 C7 CF 01 26 C7 CF CF 01 E..GET.. GO.&GOO.
$000120 01 C7 D2 C1 02 32 C7 D2 C1 CE 01 08 C8 C5 CC 02 .GRA.2GR AN..HEL.
$000130 0F C8 C9 CE D4 02 36 C8 CF C3 D5 02 1F C8 CF CC .HINT.6H OCU..HOL
$000140 C5 01 06 C9 01 1E C9 C7 CE 01 06 C9 CE D6 02 01 E..I..IG N..INV..
$000150 CA C5 D7 C5 01 1F CA D5 CD 02 0A CB C5 D9 01 07 JEWE..JU M..KEY..
$000160 CB C9 CC 01 24 CB C9 D3 02 09 CB CE C9 C6 02 28 KIL.$KIS ..KNIF.(
$000170 CB D9 C2 CF 02 2D CC C1 CB C5 02 06 CC C1 D4 C5 KYBO.-LA KE..LATE
$000180 01 1F CC C5 C1 02 2A CC C5 C4 C7 01 0E CC C9 C6 ..LEA.*L EDG..LIF
$000190 01 1E CC C9 C7 02 0B CC C9 C7 C8 01 0B CC CF C3 ..LIG..L IGH..LOC
$0001A0 02 25 CC CF C7 01 04 CC CF CF 01 24 CC CF D6 02 .%LOG..L OO.$LOV.
$0001B0 35 CC D5 C3 C9 02 36 CD C1 C7 C9 02 0E CD C5 D3 5LUCI.6M AGI..MES
$0001C0 D3 01 0E CD CF D6 02 02 CD D5 C7 02 15 CE 01 15 S..MOV.. MUG..N..
$0001D0 CE 02 03 CE C1 C9 CC 01 15 CE CF D2 02 15 CE CF N..NAIL. .NOR..NO
$0001E0 D2 D4 02 0D CE CF D4 C5 02 39 CF C3 D4 CF 02 38 RT..NOTE .9OCTO.8
$0001F0 CF C9 CC 01 09 CF D0 C5 02 1F D0 C1 D3 D3 02 08 OIL..OPE ..PASS..
$000200 D0 C5 CE C3 01 01 D0 C9 C3 02 07 D0 C9 C3 CB 02 PENC..PI C..PICK.
$000210 32 D0 C9 CC CC 02 2D D0 CF CF CC 01 1B D0 CF D5 2PILL.-P OOL..POU
$000220 01 1B D0 CF D5 01 1D D0 D5 CE 01 02 D0 D5 D4 01 ..POU..P UN..PUT.
$000230 13 D1 D5 C9 02 14 D1 D5 C9 D4 01 04 D2 C5 C1 01 .QUI..QU IT..REA.
$000240 02 D2 C5 CC 01 14 D2 C5 D3 02 01 D2 C9 CE C7 02 .REL..RE S..RING.
$000250 2B D2 CF C3 CB 02 63 D2 CF CF CD 01 10 D2 D5 C2 +ROCK.cR OOM..RUB
$000260 02 06 D2 D5 C2 C2 02 04 D2 D5 C7 02 16 D3 01 16 ..RUBB.. RUG..S..
$000270 D3 01 13 D3 C1 D6 02 14 D3 C1 D6 C5 01 05 D3 C1 S..SAV.. SAVE..SA
$000280 D9 02 2C D3 C5 D2 D0 02 1E D3 C5 D3 C1 02 37 D3 Y.,SERP. .SESA.7S
$000290 C8 C1 DA 02 07 D3 C8 CF D6 01 05 D3 C9 CE 01 12 HAZ..SHO V..SIN..
$0002A0 D3 CD C1 01 24 D3 CD CF 02 2C D3 CE C1 CB 01 16 SMA.$SMO .,SNAK..
$0002B0 D3 CF D5 02 16 D3 CF D5 D4 02 07 D3 D0 C1 C4 01 SOU..SOU T..SPAD.
$0002C0 05 D3 D0 C5 01 1B D3 D0 C9 02 39 D3 D1 D5 C9 02 .SPE..SP I.9SQUI.
$0002D0 24 D3 D4 C1 C9 02 24 D3 D4 C5 D0 02 2B D3 D4 CF $STAI.$S TEP.+STO
$0002E0 CE 01 04 D3 D4 D5 02 25 D3 D4 D5 CD 02 09 D3 D7 N..STU.% STUM..SW
$0002F0 CF D2 02 03 D4 C1 C3 CB 01 01 D4 C1 CB 01 1C D4 OR..TACK ..TAK..T
$000300 C1 D3 01 02 D4 C8 D2 02 03 D4 C8 D5 CD 01 26 D4 AS..THR. .THUM.&T
$000310 C9 C3 02 33 D4 CF CE D4 01 02 D4 CF D3 01 03 D4 IC.3TONT ..TOS..T
$000320 D2 C1 02 26 D4 D2 C5 C5 02 19 D5 01 19 D5 01 0A RA.&TREE ..U..U..
$000330 D5 CE CC 02 19 D5 D0 01 19 D5 D0 01 22 D5 D3 C5 UNL..UP. .UP."USE
$000340 02 18 D7 01 18 D7 01 03 D7 C1 CC 01 07 D7 C1 D3 ..W..W.. WAL..WAS
$000350 01 1B D7 C1 D4 02 27 D7 C1 D4 C5 01 11 D7 C1 D6 ..WAT.'W ATE..WAV
$000360 01 0D D7 C5 C1 01 18 D7 C5 D3 02 18 D7 C5 D3 D4 ..WEA..W ES..WEST
$000370 02 22 D7 C9 CE C4 02 2C D7 CF D2 CD 02 36 D8 D9 ."WIND., WORM.6XY
$000380 DA DA 02 36 D9 B2 01 05 D9 C5 CC 02 00 .. .. .. ZZ.6Y2.. YEL..
** END **

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WORD4.bas:

65535 REM COPYRIGHTED1981(C)SETOFP
10 POKE 214,128
11 POKE 40324,00
12 POKE 40383,00
13 POKE 1010,00
14 POKE 1011,00
20 PRINT CHR$(4);"RUN HELLO"

Text found in Creature_Venture_1981_Highland_Computer_Services.do/WORDS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 01 04 C1 CE C1 02 63 C1 D2 CF D5 01 08 C1 D3 D3 ..ANA.cA ROU..ASS
$000010 01 07 C1 D4 D4 02 11 C2 C1 D4 02 06 C2 C1 D4 D4 ..ATT..B AT..BATT
$000020 02 38 C2 C1 DA CF 02 2F C2 C5 C4 02 11 C2 C9 D2 .8BAZO./ BED..BIR
$000030 C4 02 10 C2 C9 D2 C4 02 20 C2 CF CF 02 25 C2 CF D..BIRD. BOO.%BO
$000040 CF CB 02 0E C2 CF D4 D4 01 12 C2 D2 C5 02 2D C2 OK..BOTT ..BRE.-B
$000050 D2 C9 C3 02 0F C2 D5 C7 02 1B C2 D5 D3 C8 02 25 RIC..BUG ..BUSH.%
$000060 C3 C1 C2 C9 02 21 C3 C1 C2 C9 02 10 C3 C1 C7 C5 CABI.!CA BI..CAGE
$000070 01 01 C3 C1 D0 02 2A C3 C1 D2 D0 02 21 C3 C1 D3 ..CAP.*C ARP.!CAS
$000080 D4 01 01 C3 C1 D4 02 26 C3 C8 C1 C9 02 2C C3 C8 T..CAT.& CHAI.,CH
$000090 C9 CD 01 03 C3 CC C9 01 0B C3 CC CF 01 08 C3 CC IM..CLI. .CLO..CL
$0000A0 D5 02 29 C3 CF D5 C3 02 1F C3 D2 C1 C3 02 25 C3 U.)COUC. .CRAC.%C
$0000B0 D5 D0 C2 02 1A C4 01 1A C4 02 02 C4 C1 C7 C7 02 UPB..D.. D..DAGG.
$0000C0 23 C4 C5 D3 CB 02 09 C4 C9 C1 D2 01 0F C4 C9 C7 #DESK..D IAR..DIG
$0000D0 02 21 C4 CF CF D2 01 1A C4 CF D7 02 1A C4 CF D7 .!DOOR.. DOW..DOW
$0000E0 CE 02 31 C4 D2 C1 D7 02 23 C4 D2 C5 D3 01 02 C4 N.1DRAW. #DRES..D
$0000F0 D2 CF 02 17 C5 01 17 C5 01 17 C5 C1 D3 02 17 C5 RO..E..E ..EAS..E
$000100 C1 D3 D4 02 32 C5 CC C6 01 03 C5 CE D4 02 21 C5 AST.2ELF ..ENT.!E
$000110 CE D4 D2 02 63 C5 D6 C5 D2 01 04 C5 D8 C1 02 04 NTR.cEVE R..EXA..
$000120 C5 D9 C5 C7 01 07 C6 C9 C7 01 0C C6 C9 CE 02 0F EYEG..FI G..FIN..
$000130 C6 C9 D2 C5 02 2B C6 C9 D2 C5 02 05 C6 CC C1 D3 FIRE.+FI RE..FLAS
$000140 02 0F C6 CC D9 01 03 C6 CF CC 02 30 C7 C1 CD C5 ..FLY..F OL.0GAME
$000150 02 21 C7 C1 D4 C5 01 01 C7 C5 D4 02 04 C7 CC C1 .!GATE.. GET..GLA
$000160 D3 01 03 C7 CF 01 01 C7 D2 C1 01 08 C8 C5 CC 02 S..GO..G RA..HEL.
$000170 0C C8 C9 CE D4 02 1F C8 CF CC C5 02 21 C8 CF D5 .HINT..H OLE.!HOU
$000180 D3 01 06 C9 02 33 C9 C3 C5 C2 01 06 C9 CE D6 02 S..I.3IC EB..INV.
$000190 0E CA D5 C7 02 03 CB C5 D9 01 07 CB C9 CC 02 02 .JUG..KE Y..KIL..
$0001A0 CB CE C9 C6 02 08 CC C1 CD D0 02 01 CC C5 D4 D4 KNIF..LA MP..LETT
$0001B0 01 0E CC C9 C6 02 05 CC C9 C7 C8 01 0B CC CF C3 ..LIF..L IGH..LOC
$0001C0 01 04 CC CF CF 02 1C CD C1 C9 CC 02 21 CD C1 CE ..LOO..M AIL.!MAN
$0001D0 D3 02 0B CD C5 D3 D3 02 28 CD C9 D2 D2 01 0E CD S..MESS. (MIRR..M
$0001E0 CF D6 02 22 CD D5 D2 C1 02 15 CE 01 15 CE 01 15 OV."MURA ..N..N..
$0001F0 CE CF D2 02 15 CE CF D2 D4 02 0A CE CF D4 C5 02 NOR..NOR T..NOTE.
$000200 39 CF CF DA CC 01 09 CF D0 C5 02 36 CF D6 C5 CE 9OOZL..O PE.6OVEN
$000210 02 22 D0 C1 C9 CE 02 1F D0 C1 D3 D3 01 01 D0 C9 ."PAIN.. PASS..PI
$000220 C3 02 22 D0 C9 C3 D4 02 01 D0 CF D3 D4 01 07 D0 C."PICT. .POST..P
$000230 D5 CE 01 02 D0 D5 D4 01 13 D1 D5 C9 02 14 D1 D5 UN..PUT. .QUI..QU
$000240 C9 D4 01 04 D2 C5 C1 02 33 D2 C5 C6 D2 01 02 D2 IT..REA. 3REFR..R
$000250 C5 CC 01 14 D2 C5 D3 02 0D D2 CF C4 02 1D D2 CF EL..RES. .ROD..RO
$000260 CF C6 02 63 D2 CF CF CD 01 10 D2 D5 C2 02 2A D2 OF.cROOM ..RUB.*R
$000270 D5 C7 02 16 D3 01 16 D3 01 13 D3 C1 D6 02 14 D3 UG..S..S ..SAV..S
$000280 C1 D6 C5 01 05 D3 C1 D9 02 1E D3 C5 D3 C1 02 21 AVE..SAY ..SESA.!
$000290 D3 C8 C5 C4 02 25 D3 C8 C5 CC 02 1D D3 C8 C9 CE SHED.%SH EL..SHIN
$0002A0 02 07 D3 C8 CF D6 02 1B D3 C8 D2 D5 01 05 D3 C9 ..SHOV.. SHRU..SI
$0002B0 CE 02 35 D3 C9 CE CB 01 12 D3 CD C1 02 29 D3 CF N.5SINK. .SMA.)SO
$0002C0 C6 C1 01 16 D3 CF D5 02 16 D3 CF D5 D4 02 07 D3 FA..SOU. .SOUT..S
$0002D0 D0 C1 C4 01 05 D3 D0 C5 02 0D D3 D4 C1 C6 02 24 PAD..SPE ..STAF.$
$0002E0 D3 D4 C1 C9 02 24 D3 D4 C5 D0 02 37 D3 D4 CF D6 STAI.$ST EP.7STOV
$0002F0 01 04 D3 D4 D5 02 02 D3 D7 CF D2 02 23 D4 C1 C2 ..STU..S WOR.#TAB
$000300 CC 01 01 D4 C1 CB 01 02 D4 C8 D2 01 02 D4 CF D3 L..TAK.. THR..TOS
$000310 01 03 D4 D2 C1 02 1B D4 D2 C5 C5 02 19 D5 01 19 ..TRA..T REE..U..
$000320 D5 01 0A D5 CE CC 02 19 D5 D0 01 19 D5 D0 02 18 U..UNL.. UP..UP..
$000330 D7 01 18 D7 01 03 D7 C1 CC 02 0D D7 C1 CE C4 01 W..W..WA L..WAND.
$000340 07 D7 C1 D3 01 11 D7 C1 D6 01 0D D7 C5 C1 01 18 .WAS..WA V..WEA..
$000350 D7 C5 D3 02 18 D7 C5 D3 D4 02 2E D7 C9 CE C4 01 WES..WES T..WIND.
$000360 05 D9 C5 CC 00 .. .. .. .. .. .. .. .. .. .. .. .YEL.
** END **